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1 . 0 INTRODUCTION 



TISA, the Time Independent Spectrum Acquisition program, acquires asynchron- 
ous data from interfaced instrxnnents , displays that data on the scope and 
stores it on LINCtape. TISA is compatible with any instrument that transmits 
X-Y data at rates that do not exceed 2 milliseconds/point and is capable of 
acquiring data simultaneously from five instruments. The number of data 
points that TISA can accept depends on the core size of the PDP-12A being 
used; the maximum number is 512 points for a 4K machine, 4608 for an 8K 
machine, and 29,184 for a 32K machine. 



The external asynchronous instrument must be interfaced to the PDP-12 by 
either two potentiometers or one shaft encoder and one potentiometer, such 
that one input transmits X-axis data (independent variable), and the other 
transmits Y-axis data (dependent variable) ♦ For a given instrument TISA 

will generate the function Y=f (X) , Thus, a typical application for TISA is 
generating a series of absorption spectra from infra-red spectrophotometers. 

Concepts and terminology peculiar to this manual are defined in the glossary 
(refer to section 11) . 

2.0 MINIMUM REQUIREMENTS 

a. PDP-12A with 4K of core*^ and KW12A clock. 

2 

b. LAP6-DIAL (version 2) tape with the TISA program. 

3.0 OPERATING PROCEDURE 

3.1 Loading TISA 

TISA is a "load and go" program and is called from tape by the DIAL command 
-^LO TISA, unitJ 

where unit is the tape unit with the TISA tape. The initial starting address 
is 40^1; the restart address is 4^2j2f. 



To obtain correct results, the X-Y inputs for an interfaced instrument must 
be connected as described in section 8.0, PIN ASSIGNMENTS. 

1 

For a data buffer of reasonable length, 8K of core is suggested. 

2 

LAP6-DIAL is hereafter referred to as DIAL. 
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3. 2 Operating Modes 

TISA has three modes of operation: 

a. Setup mode - experiment parameters are defined 

b. A/D mode - data is being acquired 

c. Pause mode - no data is being acquired 

When setup mode is terminated, TISA automatically enters pause mode and the 
data buffer display is activated. Any of the available commands may be is- 
sued at this time (refer to section 5.0). 

3.3 Sense Switch 0 Options 

Sense Switch 0 (SSWj2l) is used in all three operating modes. 
In the setup mode, its settings and effects are: 
Value Effect 



0 



none 



1 erase all previous parameter 

input and initialize setup mode 

Note that SSWJ2f is active during all of setup mode and that all user input 
is ignored when SSW^=1. The only function of SSWjZf during setup mode is 
to allow the user to restart parameter input from the beginning if he dis- 
covers an input error from which he cannot recover. During setup mode, 
raising and lowering SSWJ0 performs the same function as the following re- 
start procedure, which may also be used: 

1- Raise and lower the STOP switch 

2. Set the mode switch to LINC 

3. Depress the I/O PRESET switch 

4. Depress the START 2j2f switch 

During pause and A/D modes, the SSWJgl settings and effects are 

Value Effect 

^ display data buffer 

1 display HELP frame 

Raising SSW^I during A/D mode has no effect on data acquisition. 
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3- 4 Knob Options 



Knobs 0 and 4 provide flexibility for user control of the data buffer dis- 
play. 



Knob Movement 



Clockwise from 
center position 



KNOB 0 



Counterclockwise 
from center position 



Center position 
Clockwise 



Counterclockwise 



KNOB 4 



Effect 



Move window forward; the 
farther away from center 
position, the faster the 
motion. 

Move window backward; the 
farther away from center 
position, the faster the 
motion. 

Freeze window. 

Move cursor toward the 
right side of the scope. 

Move cursor toward the 
left side of the scope. 



4.0 SETUP MODE 

4.1 Using Setup Mode 

Setup mode allows the user to define his particular experimental parameters, 
such as number of instruments, sampling frequency, etc., by displaying a 
series of scope messages. The user responds by typing the appropriate 
characters on the keyboard. 

In setup mode, all scope messages are presented using the QANDA subroutine; 
the user must be familiar with the operating procedures of QANDA. Refer 
to DEC-12-FISA-D for a detailed explanation of QANDA. The following ex- 
planation deals only with those conventions that are peculiar to TISA. 

Setup mode is initialized by any of the following: 



1. 
2. 
3. 
4. 



Loading TISA from DIAL (refer to section 3.1) 
Raising SSW0 during setup mode (refer to section 3.3) 
Typing "S" during pause mode (refer to section 5.7) 
Restarting at 4020 (refer to asction 3.3) 



When responding to any of the following messages, an unfilled blank is in- 
terpreted as a zero; leading zeros are ignored. Thus, a response of 1 
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is identical to a response of 001, is 0000. Note that all messages 

must be answered and terminated according to QANDA conventions except where 
noted, TISA does not interrogate any user reply until a terminator is 
typed. 

4.2 Message 1 

Initializing setup mode clears the data buffers (fills them with zeros) 
and displays the following message: 

PARAMETER INPUT 

1 LINCTAPE 

2 KEYBOARD 

Be usre that SSWjS^j^ now or all further keyboard input will be ignored. 
TISA alerts the user that SSWJ0=1 by causing message 1 to flicker. 

Type 1 to select option 1, LINCtape, or type 2 to select option 2, keyboard. 
A response other than 1 or 2 and a terminator will redisplay the message. 

Option 1 allows the user to recall from LINCtape a parameter list for a 
given experiment that was previously saved using the WRITE command in the 
HELP frame (refer to section 5.8). If option 1 is chosen, the following 
message is displayed: 

READ TBLk' 

UNIT _ 

Type the tape block and unit numbers that contain the desired parameter 
list, followed by a terminator. Only octal values are legal; nonoctal 
input will redisplay the read message. The user must know where his 
parameter list is stored; TISA has no file handling capabilities. After 
the tape block and unit have been specified, TISA tries to read in that 
parameter list. If the requested tape block contains a previously defined 
parameter list, setup mode is terminated and pause mode is entered. If 
the read message is redisplayed after TISA has read in the requested tape 
block, an illegal TBLK, i.e., one that does not contain a parameter list, 
has been specified. It is possible to request an illegal tape block that 
will not be caught. Because TISA cannot check for all possible errors, 
running TISA under such conditions could produce weird results. The user 
is cautioned to know the location of a stored parameter list. 
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Option 2 requires parameter input from the keyboard and will advance to 
message 2 for definition of each instrument. 

4.3 Message 2 

Message 2 requests information defining the parameters for a particular 
instrument. The message has the following format: 

INSTRUMENT K is'_ 

(1 = analog, 2 =: encoded) 

STARTING POINT-_ _ 

TOTAL POINTS- 

SAMPLING FREQUENCY=2 _ 

TISA will support up to five instruments, each of which must be defined 
in message 2. In the above di^lay, K is the number of the instrument 
currently being defined and is always in the range j2f-4. For example, the 
first instrument defined in message 2 would be displayed as: 

INSTRUMENT 0 IS*_ 

Four error conditions described below may be detected and noted by TISA 
when the values for message 2 are supplied, 

All input to message 2 must be decimal; non-decimal input for any of the 
four responses will redisplay message 2. If TISA first detects any of 
the error conditions described below, the appropriate error message is 
displayed. An error in defining an instrument has no effect on the para- 
meter input for a previously defined instrument; thus, if instruments 0 
and 1 have been defined successfully but an error, such as non-decimal 
input, occurs in defining instrument 2, message 2 is redisplayed for 
instrument 2 and the parameter definitions for instruments 0 and 1 remain 
unchanged. Note that if an error in the definition of instrument 1 is 
detected by the user while defining instrument 2, it can be corrected only 
by raising SSW^ and starting with message 1 again. 

The only legal values for the first response in message 2 are 1 for an 
analog instrument or 2 for an encoded instrument. Any other response 
will redisplay message 2. 

TISA will support a maximum of three encoded instruments. If an attempt 
is made to define more than three instruments, the message 

ERR ENC 
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is displayed and message 2 is redisplayed for the offending instrument when 
the error message is terminated - 

The response for STARTING POINT can be any decimal .number up to five digits 
long, i.e. 0-99999, and is the value of the initial X coordinate in the 
data buffer display routines (see DATA BUFFER DISPLAY, section 9.0). 

TOTAL POINTS is the number of points that TISA will acquire and store in 
its data buffers, as distinguished from a detected point as described in 
SAMPLING FREQUENCY below. 

The response for TOTAL POINTS for any instrument must be a number greater 
than 0 and less than or equal to the number of points left in the data 
buffer, which is the maximum ntaraber of points available minus the number 
that has been allotted to previously defined instruments. The maximum 
number of points available depends upon the amount of core in the system 
configuration, according to the following scheme; 

AMOUNT OF MAXIMUM NUMBER OF 

PDP-12 CORE DATA POINTS AVAILABLE 

4K 512 

8K 46jef8 

12K 87jei4 

16K 12S00 

16896 

24K 20992 

28K 25088 

32K 29184 

Thus, if instruments 0 and 1 are defined as having 608 and 1000 points, 
respectively, for an 8K machine, the maximum number of points available 
for instrument 2 is 4608 minus 608 for instrument 0 and 1000 for instru- 
ment 1, or 3000 points for instrument 2. 

If the user requests no points, the error message 

ERR 0 PTS 

is displayed. 

If more points are requested than there are left, i.e. the capacity of 
the data buffer is exceeded, the error message 

ERR BUF FULL 
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is displayed. 



Terminating either error message reinitializes message 2 for the offending 
instrument. 

The SAMPLING FREQUENCY determines the density or resolution of the spectrum. 
The X axis input is considered as a pulse.. For an analog device a pulse is 
a one bit increment of an analog channel; for an encoded device a pulse is 
an interrupt on one of the KW12A clock channels.. A point is said to be de- 
tected on the y axis whenever TISA receives a pulse on the X axis. The ratio 
of detected points to acquired points is defined as the SAMPLING FREQUENCY. 
If the user defines TOTAL POINTS to be 1000 and the SAMPLING FREQUENCY to 
be 5, TISA will detect 5000 points and every fifth detected point will be 
an acquired point. SAJyiPLING FREQUENCIES of jef or 1 mean acquire every detec- 
ted point, a SAMPLING FREQUENCY of 2 means acquire every second detected 
point, etc. 

The SAMPLING FREQUENCY must be a number from 0 to 10. Requested sampling 
frequencies outside of this range display the error message 

ERR FREQ 

Terminate this error message? message 2 is reinitialized. 
^' ^ Message 3 

When an instrument's parameter definition has been successfully completed 
in message 2, TISA displays the following message: 

DOL 

1 MORE INSTRUMENTS 

2 START 

Type 1 to redisplay message 2 to define more instruments. TISA will 
redisplay message 2 with the instrument identifier (the K of message 2) 
incremented by one. Each instrument is defined in turn in this manner 
until option 2 of message 3 is selected. Type 2 if all the instruments 

in this experiment have been defined. Pause mode is entered immediately 
after typing 2, Terminating message 3 with a response other than 1 or 
2 is illegal and redisplays message 3. 

If option 1 is selected; there are two possible error messages that may be 
displayed. If the user attempts to define more than five instruments, 
the error message 



ERR INST 
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is displayed. If the user attempts to define additional instruments when 
all the data storage has been allotted to previously defined instruments, the 
following error message is displayed: 



ERR BUF FULL 



Terminate either error message display; message 3 is then redisplayed. 



5.0 HELP FRAME AND KEYBOARD COMMANDS 

When the user is in either pause or A/D mode and SSW0=1, a HELP frame is 
displayed that briefly summarizes all keyboard commands available to the 
user in either of these modes. The HELP frame display is: 



DIAL 

A/D MODE 
CTRL/H 
HN 
P 
F 

PAUSE MODE 
GN 
S 
W 
C 
M 
L 
P 
F 



HALT ALL INSTRUMENTS 
HALT INSTRUIVDENT N 
POLARITY 
FREEZE 

GO INSTRUMENT N 
SETUP 

WRITE TAPE 

CATACAL 

MAGSPY 

LOADER 

POLARITY 

FREEZE 



All commands are issued by typing the letter (s) and then their action is 
implemented immediately. 



5.1 DIAL 



The D command is active in either mode and is used to restart DIAL. Refer 
to the LAP6-DIAL Programmer ' s Reference Manual, DEC-12-SE2B-D. 



5.2 Halt All Instruments 

Typing CTRL/H'^ when in A/D mode directs TISA to halt all instruments; data 
acquisition is terminated on all instruments and TISA enters pause mode. 
Whenever TISA enters pause mode, the message: 



PAUSE MODE 



is printed on the Teletype. 



CTRL/H is typed by pressing down the CTRL (control) key and simultaneously 
typing H,-in the same manner as using the SHIFT key. 
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5. 3 Halt Instrument n 

HN is a two character command that allows the user to halt a given instrument 
(put it into pause mode) without affecting the mode status of the other 
defined instruments. The first character of the command is H (for halt) ; 
the second character, n, is a number in the range 0-4 and defines the number 
assigned to the instriiment in message 2* Thus, the command H2 means halt in- 
strument 2. Any number of intervening characters may be typed between H and 
N, the numeric argument, without interfering with the execution of the command 
HN, except for the character G. Thus, the command HAAA777BBB2 is identical 
to the command H2 because the nine intervening characters are illegal and 
ignored by TISA. The command H666PPP???2 directs TISA to halt instrument 2, 
but it is not identical to the command H2 because it executes the polarity 
command P (refer to section 5.4) three times before instrument 2 is halted. 
An HN command is acknowledged by the following message printed on the Teletype: 



HALT INSTRUMENT N 



where N is the user supplied value 0-4. If the HN command is typed for an 
instrument that has not been defined by the user or for an instrument that 
is in pause mode, it is ignored. 

^Qi^^ize Display 

c 

Typing P polarizes or inverts the entire data buffer display. For example: 



BEFORE P 
COMMAND 



AFTER P 
COMMAND 




The P command does not destroy the integrity of the data in the data buffer 
but merely inverts it before it is displayed on the scope. If the data 
buffer is polarized when one P command has. already been issued, the display 
is restored to its normal form. If the P command causes the display to be 
inverted, TISA responds with the Teletype message: 



INVERTED 



If the P command causes the display to be normalized, TISA outputs the 
message : 



NORMAL 

f / 
K J 
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> 

The P command can be issued as often and whenever the user chooses. 

5 . 5 Freeze 

The F command directs TISA to freeze the moving window display (see DATA 
BUFFER DISPLAY, section 9.0), thereby isolating the display on a given 
portion of the data buffer. Typing F when the window is frozen directs TISA 

to restart window motion. TISA acknowledges the F command and indicates the 
action taken by typing FREEZE or MOTION, whichever is appropriate. The user 
may issue the F command as often as he likes. 

The P and F commands are active in both pause and A/D modes. 

5.6 Go Instrument n 

GN is a two character command issued in the same manner as HN (refer to 
section 5.3), but performs the opposite function; GN puts an instrument 
in A/D mode. Remember that arguments H and G cannot be intermixed in a 
command. For example, typing H followed by G erases the first half of an 
HN command and directs TISA to wait for the second argument of a GN command. 
Thus, the commands HG2 , HHHHHG2> and G2 are all identical. If instrument 
N is in A/D mode, TISA will ignore the command GN. 

When TISA initiates A/D mode for a given instrument, the message 

GO INSTRUMENT N 

is printed on the Teletype, where N is the instrument number JZf-4. Whenever 
TISA enters A/D mode it outputs the following message on the Teletype: 

A/D MODE 

5.7 Setup Mode 

Typing the key S causes TISA to enter setup mode so a new parameter list 
can be input. The contents of the data buffer are not preserved. 

5.8 Write 

The W command outputs the data buffers to LINCtape- TISA acknowledges 
this command by displaying the following message: 

EXPERIMENT NAME 
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The user can name his experiment with any combination of up to eight charac- 
ters; input acceptable to QANDA is legitimate here. 

The Write command will generate 24-K TBLKs of output where K is the smallest 
number of tape blocks needed to store the portion of the data defined by the 
experiment. If the user had defined 1000 points of the data buffer area, 
then K is equal to four. The first two blocks contain the experiment name 
and the parameter list for the experiment just completed; they contain no 
data but enable the user to exercise the LINCtape input option during setup 
mode (refer to section 4.2). The experiment name will appear in the begin- 
ning of the first block of output exactly as it is typed in the name message 
above. For example, if the first block of output is assigned the name 

ABCD 

then this block when viewed via MAGSPY"^ will appear as follows: 

ABCD 

$ % AS JWBE * 9 9 6 % RY SS I&I 5 6 % & J 

After the name message, TISA displays the following Write message: 

WRITE XYZ (OCT) TBLKS 

FIRST TBLK= * 

UNIT _ 

where XYZ is the number of octal tape blocks that will be output and is the 
number 2+K described above. The user specifies in octal the starting TBLK 
and unit number; a non-octal response redisplays the name message. If the 
response to the Write message is legitimate/ TISA commences to write the data 
buffer plus the two header blocks. While writing, the display is maintained; 
however, all commands are ignored until this operation is finished. When the 
interrupt (ION) light comes on, the operation is finished. If this parameter 
list just output is ever to be recalled, remember the first TBLK specified 
in the Write message because it is this block that option 1 of message 1 
(refer to section 4.2) requires. (This block number may also be determined 
using the MAGSPY program. ) Note that TISA considers TBLK 777 to be contigu- 
ous to TBLK 000. For example, if a request is made to write 20 TBLKs start- 
ing at TBLK 77^, the first 10 TBLKs are written on 110-111 and the last 10 
TBLKs on 0-1. Data should not be output in this manner, however, because of 
difficulties created for related software, such as MAGSPY^. 



MAGSPY is a program used to examine data stored on LINCtape. Refer to 
DEC-12-UZSA-D and section 5.10. 



11 



5.9 CATACAL 

Typing C exits TISA and loads the program. CATACAL which is very useful for 
data manipulation. Refer to DEC-12-UW1A-D for a description of CATACAL. 

5. 10 HAGSPY 

Typing M exits TISA and loads the program MAGSPY, 

The CATACAL and MAGSPY commands both assume that a DIAL-V2 tape (not 
DIAL- MS) with the binary files CATACAL and MAGSPY are on unit 0. If the 
binary files are not present, the user will find himself in DIAL with 
the NO message on the scope. If a DIAL-V2 tape is not on unit J0, the 
results are unpredictable. 

5. 11 Load 

TISA can load an arbitrary program by issuing the command L. A DIAL V2 
tape must be on unit 0. The following load message is displayed: 

load' 

UNIT _ 

Type at least one character for the program name in acceptable QANDA 
characters and then type the unit where this program is located. No 
error checking is done for the unit argument; thus, if the user requests 
unit A, he gets unit l,etc. If the requested binary is a file on the 
requested unit, TISA will load it. If the file does not exist, the user 
will find himself in DIAL with the NO message on the scope. 

5. 12 Polarize 

The P command in pause mode is identical to the P command, Polarize, in 
A/D mode (refer to section 5.4). 

5. 13 Freeze 

The F command in pause mode is identical to the F command. Freeze, in A/D 
mode (refer to section 5.5). 

6.0 TELETYPE USAGE 

TISA outputs messages to the Teletype to make the user aware of the 
present action. The following set of messages are in TISA's repertoire: 
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HALT INSTRUMENT N (N=0-4) 
GO INSTRUMENT N (N=j2f-4) 
MOTION 

FREEZE 
NORMAL 
INVERTED 
PAUSE MODE 
A/D MODE 
HANDS OFF 

A backlog of several messages may occur because the Teletype is a relatively 
slow device for TISA*s environment. TISA services legal keyboard commands 
immediately; the message (s) appropriate to the command(s), however, is 
typed afterward. If a command is issued while a message is being typed, 
the command is executed immediately and the message (s) appropriate to the 
command is put on TISA's backlog. TISA will never overload the Teletype 
but the user may do so by leaning on the P key. In this case, the integrity 
of the messages printed on the Teletype may be destroyed, but execution of the 
keyboard commands is maintained. If the Teletype becomes too overloaded with 
commands, the message HANDS OFF is printed. 

7.0 DATA ACQUISITION 

TISA has the ability to acquire data simultaneously from five instruments. 
A given device must not transmit X axis data at rates that are faster than 
2 milliseconds/point or data will be lost. If all instruments (maximum of 3) 
are defined as encoded, the optimum rate obeys the following scheme: 

NO. OF ENCODED OPTIMUM 
INSTRUMENT RATE 

1 500 ys 

2 1000 ys 

3 1500 ys 

For analog devices, a one bit increment in the X axis potentiometer indicates 
to TISA that a point has been detected on the Y axis. For encoded devices, 
an interrupt on a KW12A clock channel (X axis input) indicates a detected 
point. The data that TISA acquires comes from the Y axis input. Each data 
point represents a 10 bit A/D conversion on one of the Y axis analog inputs, 
and is stored as a 10 bit single precision word. Each defined instrument is 
assigned a sector of contiguous core locations in the data buffer area, 
beginning at location 7000 of PDP-8 field 0 and continuing to the last loca- 
tion of the last PDP-8 field. The data sectors for each instrument are ad- 
jacent to one another; there are no data gaps between instrument data sectors. 
The data sector for instrument 0 always begins at the initial PDP-8 data 
buffer location (07000). For example, if the user defined TOTAL POINTS for 
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instrximents 0, 1, and 2 to be 512, 2j3j3j2f, and 3 {100^,3120, 3 octal), res- 
pectively, then the allocation in the data area for an 8K of core configura- 
tion is: 

DATA BUFFER ALLOCATION 
INSTRUMENT FROM TO 



0 


0 


1000 


0 


1111 


1 


1 


0000 


1 


3717 


2 


1 


2120 


1 


3722 



(1 3723 to 1 7777 is unused) 

TISA starts acquiring data from an instrument upon receiving a Go command 

(refer to section 5.6). No action is taken on an instrument until the 
first pulse is received from the X axis- TISA does not require the data 
to be input in a periodic or time dependent fashion; pulses can be days 
or milliseconds apart. 

TISA will acquire data from an instrument until any one of the following 
conditions occurs: 

1. the requested number (TOTAL POINTS), of points has 
been acquired 

2. the user halts the instrument from the keyboard 

3. the X axis potentiometer (analog instruments only) 
decreases 20 bits from its last value read 

Conditions 1 and 3 represent internal instrument halts. If a halt message 
is printed on the Teletype and the halt was not requested by the user from 
the keyboard, then the instrument halt was internal. All three conditions 
cease data acquisition for the given instrument and an appropriate message 
is printed on the Teletype. 

8.0 PIN ASSIGNMENTS 

There is only one correct way to connect the X~Y inputs from an instrument 
to the PDP-12, regardless of the particular system configuration. Let 
instrument K be the Kth instrument defined during setup mode for K=j8,l,2,3,4 
and let N^^ be the n-amber of analog instruments that were defined previous 
to instrument K. The X-Y inputs must then obey the following rules: 

1. If instrument K is analog, its X axis input is connected 
to analog channel IjZf+K for K<4, If K«4, the input is con- 
nected to analog channel 20.^ 



The fifth channel requires the analog extension (channels 20-27) which is \ 
not standard PDP-12 hardware. 
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2. If instrument K is encoded, its X axis input is connected 
to clock channel 1+K-N^,. 



3. The Y axis input for instrument K is analog channel 14+K 
for K<4. For K=4, the input is connected to analog chan- 
nel 24. 



Consider, for example, the following configuration: 



CLOCK 




INST 
1 



GENERAL CONFIGURATION 



CLOCK 



X AXIS 




The fifth fhannel requires the analog extension (channels 20-27) which is 
not standard PDP-12 hardware. 
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ANALOG 



X AXIS 




INST 0 



INST 1 



INST 2 



INST 3 



INST 4 



Y AXIS 



INST 

0 
1 
2 
3 



INST TYPE 

ANALOG 
ENCODED 
ANALOG 
ENCODED 



N. 

0 
1 
1 
2 



K 



X AXIS 

ANCH 10 
CLOCK 1 
ANCH 12 
CLOCK 2 



Y AXIS 

ANCH 14 
ANCH 15 
ANCH 16 
ANCH 17 



9.0 DATA BUFFER DISPLAY 

The data buffer display has the three following features: 

1. A moving window display controlled by A/D Knob 0 and 
the keyboard 

2. A cursor superimposed on the data buffer display and 

controlled by A/D Knob 4 

3* X-Y decimal coordinate display of cursor position 

The 10 bit values in the data buffer are scaled to 9 bits prior to display 
to prevent scope "wrap-around." 

9.1 Moving Window 

Because the scope can display a maximum of 512 points at any one time and 
the data buffer has a maximum capacity of 29,184 points, the moving window 
display is used to view any 512 contiguous points of the data buffer, start- 
ing at any given point, simply by rotating A/D Knob 0. The moving window is 
very similar to that used in MAGSPY. Consider the data buffer as a ring 
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located behind the VR12 scope, with the initial and terminal data points 
being contiguous, that can be turned by a wheel, namely, A/D knob j?; the scope 
the window- (The phrase moving window is actually a misnomer because it 
is the data buffer that moves.) When knob 0 is in its center position, 
the display is stationary. 

When A/D knob 0 is moved clockwise from the center position, the data 
buffer (the ring) appears to move from right to left across the scope. 
The velocity of the moving window increases with the clockwise movement 
of A/D knob 0 from the center position. The exact opposite occurs for 
counterclockwise movement of A/D knob 0. The data buffer appears to be 
moving from left to right across the scope. When the display is frozen 
under the keyboard command F, knob 0 has no effect. When TISA enters pause 
mode for the first time (after being loaded from LINCtape) , the display is 
frozen and the leftmost scope point is the first point for instrument 0. 

9. 2 Cursor Display 

A cursor is superimposed upon the data buffer display and can be positioned 
over any of the 512 points in the display by rotating A/D knob 4 if knob 
4 is moved to its furthermost counterclockwise (leftmost) position, the 
cursor will be imposed on the leftmost point of the scope display. Similarly, 
if knob 4 is positioned to its furthermost clockwise (rightmost) position, 
the cursor will be imposed upon the rightmost scope data point. Interven- 
ing knob positions will yield intervening cursor positions. The cursor ap- 
pears on the scope as a vertical line ( I ) and normally "sits" on top of 
the display point. However, for those cursor points that do not allow enough 
room at the top of the scope for the cursor to sit comfortably, the cursor 
is displayed beneath the cursor point as the following example shows. 



CURSOR CURSOR 
ABOVE BELOW 
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It should be noted that knob has no control over the position of the 
cursor relative to the scope. If the window is frozen and the cursor is I 
inches from the left side of the scope, the cursor will remain fixed at I 
inches from the left of the scope if the window movement is started. The 
relationship of the cursor to the data buffer, however, changes because 
the data buffer is moving across the scope. 

9. 3 X-Y Coordinates 

If the cursor is sitting on a defined portion of the data buffer, its X-Y 
coordinate position is displayed on the scope in the following manner: 



X--X_ x<^x 




Both X and Y are non-negative decimal integers; the range for X is 0- 
391829; the range for Y is 0-511. Leading zeros and the point 00000 are 
not displayed. If both the X and Y coordinates are 0, the coordinates 
are displayed as: 

X= 

If the cursor is positioned over an undefined portion of the data buffer, 
the X~Y coordinates are not displayed at all. The Y coordinate reads the 
amplitude (height) of the cursor*, the value 0 is the bottom of the scope 
and the value 511 is the top of the scope. 

The value of the X-coordinate depends upon ttie cursor's absolute position 
within the data buffer and the starting points and sampling frequencies 
assigned by the user during setup mode. Each instrument was assigned a 
sector of the data buffer after replying to TOTAL POINTS in message 2 

(refer to section 4.3). When the STARTING POINT value was input, an 
initial X coordinate to the first data point of the data sector for 
that instrument was assigned. 

Consider the case where the sampling frequency is 1, the STARTING POINT is 
9000 for instrument K, and the cursor is positioned over the initial data 
point of the data sector for the instrument K. If the cursor is moved 
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from left to right with the window frozen and the cursor at the far 
left of the scope, the X coordinate will read successively: 

9000, 9001, , 9009, 9010, , 9510, 9511 

assuming TOTAL POINTS is greater than 511. Because the STARTING POINT 
(initial X coordinate) is arbitrary and data sectors are adjacent to one 
another in the data buffer, it is not unusual for the X coordinate to 
jump as the cursor crosses data sectors. Suppose the user defined TOTAL 
P0INTS=1 for instruments 0, 1, and 2 and STARTING POINTS=9i2f00 , 5, and 47311 
respectively. If the cursor is positioned over the first (and last) data 
point for instrument 0 and moved from left to right, the X coordinate will 
read respectively (and discontinuously ) : 

9j0j2fJ2f,5,47311 

As long as the cursor stays within a data sector and moves forward across 
it via A/D Knob 0 or 4 or both, the X coordinate will increase in value. 

The difference between any two X coordinates within a data sector for a 
given instrument is the SAMPLING FREQUENCY of that instrument. In the 
same case, if the SAMPLING FREQUENCY is three, then the successive X co- 
ordinate readings are: 

9000, 9002, , 9021, 9030, , 10530, 10533 

For a SAMPLING FREQUENCY of IjZf, the readings are: 

9000, 9010, , 9090, 9100, , 14100, 14110 

With a SAMPLING FREQUENCY of 10, the data acquisition routines acquire 1 
point for every 10 detected and they are stored as successive data points 
in the data buffer. This difference, therefore, is reflected in the X co- 
ordinate display. There is no X-Y display over undefined areas of the data 
buffer because there are no arguments (STARTING POINT, etc.) for the X-Y 
display routines to use. The X-Y coordinates are displayed on hardware 
channel 1, and the data buffer is displayed on hardware channel 2. To 
see both displays the channel select knob should be set to the position 
1 & 2. In the event that the data buffer display and X~Y readout overlap, 
they can be viewed separately by selecting the appropriate hardware scope 
channel. 
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OVERLAP CONDITION 




10.0 INSTRUMENT INTERFACE 



TISA plots the incoming data from each of up to five instruments as a dependent 
variable versus an independent variable. The dependent variable, for example 
the intensity at a given frequency for an infra-red spectrophotometer, must be 
an analog signal within the range of the analog-to-digital converter contained in 
the particular PDP-12. The standard voltage range is -1 volt to +1 volt. 

The independent variable may be a monotonically increasing voltage as shown in 

figure 1 or a pulse train as shown in figure 2. Note that the fastest sampling 
rate on any and all instruments is 2 milliseconds per point. The maximum slope 
of an analog dependent variable can be found by the following formula: 

e,1^v^^^ ^ volts , 1 

maximum slope 



3 

10 samples 2 msec 



where X = voltage range of particular analog-to-digital 
converter system 



For the encoded or pulsed dependent variable the input waveform need only pass 
through the desired threshold whenever an analog sample is required. The 
desired trigger level is set by the threshold knob on the KW12A input panel. The 
threshold knob is not calibrated but the limits are approximately + 6 volts and 
the potentiometer controlled by the threshold knob is approximately linear. The 
slope control defined as shown in figure 2 is also on the KW12A input panel. 
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+1 volt 



0 volts 



-1 volt 



max, slope'^« = 
2mvolts/2msecs 



time 

Figure 1 Monotonically Increasijnig Voltage 
»Voltage range for standard analog to digital converter 



+6 volts 



rH 
O 

CO 
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U 

rC 



0 volts 



4l -6 volts 



positive 
trigger 
on this 
slope 



negative 
trigger 
on this 
slope 




minimum time between 
triggering points = 2 msecs 



time 



Figure 2 Pulse Train 
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The setup procedure for instrument N, where N = 0 , 1 , 2 , 3 , 4 , is described in 
section 8.0. The setup procedure details which input channels are to be used. 

Typical analog independent variable sources are retransmitting pots or ramp 
generators while pulsed sources are typically shaft encoders or oscillators. 

Several examples of typical interfaces were tried in the PDP--12 engineering 
laboratory. A Perkin Elmer model 621 infrared spectrophotometer was interfaced 
by placing a retransmitting pot on the pen drive gear and either a retransmitting 
pot or an incremental shaft encoder on the main chart drive gear. In the case 
of the Perkin Elmer instrument, the pickup devices were attached via extra 
chart drive gears supplied with the instrument. The potentiometers were Bourns 
3400S series devices. The incremental shaft encoder was a Data Technology model 
#C2 5-100-4 0 with two one-hundred cycle/turn pulse outputs 90° out of phase i 
The two outputs can be used to detect the direction of rotation and/or produce a 
400 cycle/turn output. However, for this application, either of the outputs 
alone was sufficient. 



^The specification of these part numbers in this manual does not constitute 
DIGITAL EQUIPMENT CORP. sanction or guarantee, but is intended as an aid for 
the user. 
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11.0 GLOSSARY 



ACQUIRED POINT 



an acquired point is one that has been retrieved from 
the Y axis of a defined instrximent and stored in TISA's 
data buffers (see also SAMPLING FREQUENCY and DETECTED 
POINTS) . 



A/D MODE 

INSTRUMENT 



TISA 



ANALOG INSTRUMENT 



CURSOR 



CURSOR POINT 



DATA BUFFER 



an instrument is said to be in A/D mode (running) when 
TISA is accepting information from its X axis, 

TISA is said to be in A/D mode when at least one of 
its defined instruments is in A/D mode. 

one of two types of instruments that may be interfaced 
to TISA. An instrument is defined as analog if its X 
axis input runs from a potentiometer to a PDP-12A ana- 
log channel, 

a vertical line ( [ ) superimposed upon the data buffer 
display and controlled by A/D knob 4. 

that point in the data buffer display upon which the 
cursor is sitting. 

the amount of core available on the PDP-12 that has been 
reserved for acquiring points. The data buffer is a 
function of core size and ranges from 512 to 29,184 
words. 



DATA POINT 



a signed 10 bit single precision A/D conversion or 
word. 



DATA SECTOR 



a contiguous set of core locations in the data buffer 
that has been assigned to a defined instrument. A 
data sector can be anywhere in length from 1 to 29,184 
core locations. 



DEFINED DATA AREA 



DEFINED INSTRUMENT 



DETECTED POINT 



the portion of the, data buffer that contains the data 
sectors of all defined instruments. 

an instrument is defined if it has been assigned a set 
of parameters during setup mode. 

for a given instrument, a point on the Y axis is 
detected if TISA has received a pulse from the cor- 
responding X axis. 
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one of two types of instruments that may be inter- 
faced to TISA. An instrument is defined as encoded 
if its X axis input runs from a shaft encoder to a 
KW12A clock channel, 

a message that can be displayed on the scope when TISA 
is in either pause of A/D mode which briefly summarizes 
the keyboard cormands that are available to the user, 

interfaced to TISA for data acquisition. Instruments 
are either analog or encoded, depending upon the man- 
ner in which they are interfaced, 

the Kth instrument defined during setup mode; 

K = J3,l,2,3,4, 

an instrument in A/D mode that is halted by a means 
other than by an HN or CTRL/H keyboard command is 
said to have been internally halted, 

the state of an instrument at any point in time or 
the relationship that it bears to TISA is called its 
mode. An instrument is either in A/D mode or pause 
mode. Undefined instruments are in pause mode by 
default. 

the state of TISA's operation or its relationship 

to the user at any given point in time is called 
the mode. TISA has three modes: A/D, pause, and 
setup. 

a numeric value that is used to define an instrument, 
e.g. TOTAL POINTS. 

the set of all parameters for all defined instruments. 



an instrument is in pause mode whenever TISA is not 
accepting information from its X axis. 

TISA is in pause mode whenever all of its defined 
instruments are in pause mode. 

X axis information transmitted by a defined instrument. 
For an analog instrument, a pulse is a one bit increment 
on the X axis potentiometer. For an encoded instrument, 
it is an interrupt on one of the KW12A clock channels. 

a PDP-12 subroutine that facilitates question and 
answer type of dialogue via the scope and keyboard. 
(Refer to DEC-12-FISA-D.) 

an instrument parameter that is the ratio of DETECTED 
POINTS to ACQUIRED POINTS. SAMPLING FREQUENCY deter- 
mines an acquired spectriim's resolution. 

TISA is said to be in setup mode when the user is de- 
fining his instruments (messages 1-3). 

the sum total of an instrument's acquired points is 
called the spectrum of that instrument. 



Sense Switch 0. 



STARTING POINT 
TBLK 

TOTAL POINTS 

X AXIS 
y AXIS 



an instrument parameter that defines the initial X 
coordinate for the data buffer display of the first 
data point of the instrument's data sector. 

an abbreviation for LINCtape block. 

an instrument parameter which equals the total number 
of points that TISA will attempt to acquire when the 
instrument is in A/D mode. The length of an instru- 
ment's data sector is equal to its TOTAL POINTS. 

one of two of an instrument's inputs to TISA that are 
required to generate the instrument's spectrum. The 
X axis input is the independent variable. 

one of two of an instrument's inputs to TISA that 
are required to generate the instrument's spectrum. 
The Y axis input is the dependent variable. 
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Appen':^.ix A 

Internal Description 



This appendix assumes that the reader is familiar with TISA*s external 
characteristics as described in sections 1 through 11 of this manual. 



A.l 


Interrupt Routines 


A. 2 


Data Acquisition Routines 


A. 3 


Teletype Routines 


A. 4 


Keyboard Routines 


A. 5 


LINCtape Routines 


A. 7 


Setup Routines 


A, 8 


Memory Check Routine 


A. 9 


Flow Charts 


A. 10 


Core Allocation 



A.l INTERRUPT ROUTINES 

The interrupt routines handle interrupts in both modes. In either mode, only 
the following central processor registers are preserved: AC, LINK, PC, IF, and 
DF. The entry and exit routines for P-mode and L-mode interrupts are different 
but the interrupt dispatching is common to both. Interrupts remain off until 
the routines exit. I.e., the interrupt routines can not be interrupted. An L-mode 
interrupt goes to a routine INTL which saves the AC and LINK, sets up a LINK node 
jump at RTNJMP, an>LDF instruction at RTNLDF and an LIF instruction at RTNLIF, 
and sets the interrupt mode switch (INTMOD) to 0. A P-mode interrupt saves the 
AC, link and sets the interrupt mode switch to 7777, before going to interrupt 
dispatch. 

The interrupt dispatch routines always check three devices in the following 
order: clock, keyboard, and Teletype. If the clock flag is set, the routine 
dispatches a call to the routine TISA for data acquisition. If the keyboard 
flag is up, a character is read in and stored in location KBDBUF. If the Tele- 
type flag is up, it is cleared, then location ADMESS is checked to see if a 
character needs to be typed (C (ADMESS )NE to 0 means type C (ADMESS)). If a 
character needs to be typed, it is; the location ADMESS is advanced by one; and 
the location TTYFLG is set to C (ADMESS) - non zero - to indicate that the 
Teletype is busy. If no characters need to be typed, then TTYFLG is set to 0 
to indicate that the Teletype is not busy. When all devices have been either 
check or serviced, the AC and link are restored and the INTMOD switch is IS Zed 
to implement one of the two following exits: 

P-MODE L-MODE 

LINC 

ION DJR 
JMP I 0 RTNLIF, 0 

RTNLDF, 0 

lOB 

ION 

RTNJMP, 0 

A. 2 DATA ACQUISITION 

When the data acquisition routines are called they check all five devices 
(even if some devices are not defined or not selected) because it takes only 
14.4 microseconds to determine that a device is not selected. The first task 
of the data acquisition routines is to preserve the clock bits by executing: 

CLSA 

DCA STATUS 
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An analog device must be checked whenever there is a clock overflow, not 
because the device is ready but because it might be ready. The only way to 
determine a 1 bit increase of an X-axis analog channel is to read it periodically. 
The clock is set to overflow and causes an interrupt on overflow once every 
two milliseconds. Analog devices, therefore, are checked once every 2 
milliseconds (optimum speed for analog devices under the worst circumstances) . 
An encoded device is checked whenever its clock channel causes an interrupt 
indicating it is ready. Note that encoded devices can run at speeds much faster 
than 2 milliseconds. For instance, TISA could handle one encoded device and 
no others without loss of any data, if the rate of interrupt was faster than 
1/2 millisecond/point. Because the optimum speed varies amoncr all possible user 
defined configurations^ the upper limit in the user's manual is a worst possible 
case restriction. There are only 4 bits in the clock status register that are 
of interest to the data acquisition routines: 



1. Clock overflow, bit 0 

2. Interrupt on channel 1, bit 6 

3. Interrupt on channel 2, bit 8 

4. Interrupt on channel 3, bit 10 



Each device has a select word associated to it whose function is to mask 
out all status bits except the one that determines if the device is ready to be 
checked. For example, the select word for an analog device is 4000. The 
coding that determines if a device needs to be checked is identical for all 
devices. For device K, the coding is: 



TAD STATUS 

AND SELDVK 

SNA 

JMP ( I ) NXTDV 

DCA DVTYP 
JMS I KINPUT 



Devices are deselected by clearing their select words. The select word for an 
undefined device is always 0, Every device has a set of parameters associated 
to it that are required for checking and servicing the device. If a device 
needs to be checked, the subroutine INPUT is called; the parameters for the 
device are directly beneath the call: 



f 
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JMS 



I 



KINPUT 
XAXDVK 
YAXDVK 



100 
100 



EHIDVK, 



0 

(I) NXTDV 



/END OF LIST 
/CONTINUE RTN 
/HLT RTN 



JMP 



NXTDV, 



TAD 



STATUS 



The INPUT routine retrieves the parameter list, checks the devices, and 
returns. If the device is to be halted, input returns to the halt return; 
otherwise it returns to the continue return. Each device is checked in an 

identical manner; the last device checked returns to the interrupt dispatch 
routines so that the keyboard and Teletype may also be checked. 

After retrieving the parameter list, INPUT checks the high order bit of 
DVTYP to determine if the device is analog or encoded. DVTYP = 4000 for analog 
and OXXX for encoded devices. If the device is analog, the routine ANALOG is 
called to check for a 1 bit increment of the X axis. ANALOG samples the X axis 
(NEWSAM) and compares the value read with OLDSAM, which holds the X axis A/D 
value for the last detected point. If NEWSAM is greater than OLDSAM, a point 
has been detected. At this juncture, NEWSAM replaces OLDSAM and ANALOG returns 
in line (ANARTN) for further checking of the device. If ANALOG finds no increase, 
NEWSAM is checked for a 20 bit decrease. If the X axis has dropped 20 bits, 
ANALOG exits to the halt return; otherwise, it exits to the continue to next 
device return. For encoded devices or analog devices that make it to ANARTN, 
INPUT advances and checks the detected point counter. When this counter goes 
to zero, a point is ready to be acquired; otherwise, INPUT exits to the continue 



If the device is ready, INPUT resets the detected point counter, sets up 
a 15 bit buffer address (CDF INST and 12 bit address), SAMs the Y axis, stores 
away the value, and resets the field to 0 (CDFO) • INPUT then compares the 



return: 



ISZ I FREQ 
JMP I INPUT 
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current device address to the terminal device address to determine if all points 
have been acquired and, if so, exits to the halt return. If the device is not 
finished, INPUT increments the current address by 1 and exits to the continue 
return. Returning to the halt return affects the values of 2 parameters 
0 is put into SELDVK to deselect and the device number (0-4) is put into HSWITK 
for subsequent use by the routine CHKSWI, 

A. 3 TELETYPE ROUTINES 

The Teletype routines work in conjunction with a que stack capable of hold-- 
ing the addresses (of the first character of each message) of twenty messages. 
Messages go on the que via the pointer QUEIN, and come off via the pointer 
QUEOUT; QUECNT always holds the number of untyped messages on the que. The que 
stack is ringed so that the address of message 20 is adjacent to the address 
of message 1. Each message consists of a string of 8 bit ASCII characters 
followed by the message terminator 0000. The subroutine MESCHK takes messages 
off the que, and the subroutine QUPUT puts them on the que. 

A. 3.1 MESCHK 

MESCHK first looks at QUECNT to see if it is zero. When QUECNT is zero, 
there are no more messages waiting to be typed so MESCHK exits in this case. 
Location ADMESS is the pointer to the current message being typed; once ADMESS 
is initialized by MESCHK, it is controlled by the interrupt routines (see above). 

If QUECNT is non-zero (message waiting), MESCHK looks at ADMESS (TAD I ADMESS). 
If the AC is non-zero, a message is in progress and MESCHK exits. If the AC is 
zero, MESCHK must verify that the last character of the message has been typed; 
this is done by checking the location TTYFLG. If TTYFLG is non-zero, the TTY 
is busy and MESCHK exits. If the TTYFLG is zero, MESCHK takes the next message 
off the que: 

TAD I QUEOUT 
DCA ADMESS 

QUEOUT is advanced to the next message; if it is at the end of the que, it is 
reset to the start of the que. The QUECNT is decreased by 1 and the first 

character of the message is typed to initiate the Teletype interrupt routines 
that will finish the message. MESCHK then exits. 

A. 3.2 QUPUT 

When QUPUT is called, the address of the message is in the AC. QUPUT saves 
the message in QSAVE and checks QUECNT to see if the que has room for only one 
more message and, if so, the message in QSAVE is ignored and the busy message 
(HANDS OFF) is put on the que instead. If QUPUT makes it by the busy message, 
it checks to see if the que is full and, if so, QUPUT exits. If the que is not 
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full, the message is put on the que via QUEIN; QUEIN is advanced to the next 
location and QUECNT is incremented by 1; QUPUT then exits. 



A. 4 KEYBOARD ROUTINES 

All incoming characters are dispositioned by the subroutine KEYBRD, when 
KEYBRD is called it immediately checks location KBDBUF to see if the interrupt 
routines have retrieved a character • If KBDBUF is zero, no character is waiting 
and KEYBRD exits. If KBDBUF is non zero, a character is waiting. The waiting 
character is put into location CHAR which is part of the character look up table, 
and KBDBUF is cleared (set to zero) so that the waiting character will be 
dispositioned only once. KEYBRD next searches the character table. Each defined 
character is assigned a consecutive pair of core locations. The first location 
in the pair is the 8 bit ASCII code of the defined character, the second location 
is JMP to a routine appropriate to the character. The last pair in the table is: 

CHAR, 0 

JMP I KEYBRD 

The reason for this pair is to ensure that all keyboard characters will generate 
a match in the table search routine. All undefined characters cause KEYBRD to 

exit. Starting at the top of the table, KEYBRD compares each defined character 
with the waiting character in location CHAR. The search routine ISZ's by the 
jump instructions in the table location. JMP X is never compared with CHAR. 
When a match is found at location A, KEYBRD executes the jump instruction at 
location A+1 via: 

TAD CLOC A+1) 

DCA .+1 

0 /JMP INST 

The following is an explanation of the various routines that are called from the 
character table. 

A. 4.1 D Routine 

This routine restarts DIAL with lOF and XOB clear by jumping to the following 
bootstrap: 

4015 LDF 3 

4016 RCG I 

4017 7300 

A. 4.2 CTRLH Routine 

The function of this routine is to put TISA into Pause mode. Location 
MODE determines whether TISA is in pause or A/D mode; 0 = pause, 7777 = A/D. 
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CTRLH first checks MODE; if it is zero, CTRLH exits {JMP I KEYBRD) . If TISA is 

in A/D mode, CTRLH sets MODE to 0, sends 0 to GLEN to disable all clock interrupts, 
sets the select words for all devices to 0, puts the address of the pause mode 
message in the AC, calls QUPUT, and then exits. 

A. 4. 3 H Routine 

The character H is the first in a two character command of the form 
HN{N=0,4). The function of the H routine is to enable the N half of the command. 
H does this by setting the word HSWIT to 7777. H also clears the go switch 
GSWIT (sets it to 0) because there is another two character command GN. 
HSWIT and GSWIT cannot be simultaneously enabled, i.e., TISA waits for either the 
N half of G or the N half of H, but not both. After setting HSWIT and GSWIT, 
H exits. 

A. 4. 4 G Routine 

G has the opposite effect of H; i.e., GSWIT is set to 7777 and HSWIT is 
set to 0. 

A. 4. 5 P Routine 

The fimction of the P routine is to complement the polarity word POLAR. 

Depending upon the value of POLAR, the display routines do or do not complement 

a data word before it is displayed. The logic employed is: 

TAD (DATA WORD) 

SRO I 

POLAR, /7777 COMPLEMENTS 

COM 

After the polarity word is complemented, the P routine checks its value 
and sends either the normal or inverted message to QUPUT, then exits. 

A. 4. 6 F Routine 

Window motion depends upon the value of one word, FREEZE. The logic in 
the display routines is as follows: 

SRO I 

FREEZE, 

JMP (FREEZE) 
JMP (MOTION) 

The F routine dispositions the "F" command and the freeze word in a manner 
exactly analogous to the P routine. 
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The function of the S routine is to initialize setup mode. If TISA is in 
A/D mode, S exits; if not, then the interrupts are turned off and S jumps to the 
setup routines at location SETUP. 

A, 4. 8 W Routine 

If TISA is in A/D mode, W exits. If TISA is in Pause mode, W calls the 
LINCtape write routines (see LINCtape Routines, section A. 5. 3). 

A. 4. 9 L Routine 

If TISA is in A/D mode, the L routine exits; otherwise, L jumps to a 
routine that displays the following QANDA message: 



LOAD 
UNIT 



Which allows the user to specify program name and unit. When the user terminates 
the load message, the first character of the answer buffer is checked for 00; 
00 means the user input no program name to QANDA and will redisplay the load 

message. When the message is terminated, the routine KLOAD is called, whose 
function is to transfer the QANDA answer buffer to DIAL'S monitor parameter 
table (for a full discussion of the table see DIAL EDITOR V2 internal 
description DEC-12-ZW7A-D) at locations E6+2 (2373) - E6+6 (2377). 

The program name is first transferred, one half word at a time, to an intermediate 
table (LODPTR) . Eight characters must be transferred for the program name to 
meet the requirements of the E6 table. Unused portions of a QANDA answer buffer 
contain 00. Unused portions of the E6 table must contain 77. If the user 
requested the program name ABCD, the two answer buffers would look as follows: 

KLOAD 

BUFFER BUFFER 



ANSWER, 74 01 /74A 

02 03 /B C 
04 00 /D ~ 

00 00 / 

00 74 /-74 
XX /UNIT 



LODPTR, 01 02 /AB 
03 04 /CD 
77 77 
77 77 

YYYY /UNIT 



The KLOAD routine skips over the first QANDA 74 and terminates name transfer 

when it uncovers the second 74. The response for unit in the QANDA answer 
buffer is stripped to 3 bits and stored in the LODPTR table after the name. 
60 (0) is unit 0 and 01 (A) is unit 1, etc. When the LODPTR table has been 
set up, KLOAD puts LODPTR-1 into the AC and calls the routine LOADER. 
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The function of the routine LOADER is to transfer the table whose address-1 
is in the AC to the E6 table and call the DIAL loader. All program calls in 
TISA to DIAL binary files realize that setting up the E6 table and calling the 
DIAL LOADER is sufficient work to accomplish the task. LOADER turns off the 
interrupts^ clears the XOB and special functions, registers and reads the 
Editor's grid table into LDFl in case the DIAL LOADER decides to display "NO". 
The AC table is transferred to the E6 table and then the DIAL LOADER is read in 
and started. The logic is highly similar to executing an LO coiranand in the 
DIAL EDITOR. 



A. 4. 10 C and M Routines 

The function of the C and M routines is to call the programs CATACAL and 
MAGSPY, respectively. Both routines will execute a JMP 1 KEYBRD if TISA is in 
A/D MODE. Otherwise, the address, CATPTR-1 or MAGPTR-1, is loaded into the 
AC and the LOADER routine is called. 



CATPTR, 0 301 /CA 

2401 /TA 

0301 /CA 

1477 /L 

0 /UNIT 



MAGPTR, 1501 /MA 

0723 /GS 

2 031 /PY 
7777 

0 /UNIT 



C and iM both require the programs to be on unit 0. C, M, and L all require 

a DIAL V2 tape to be on unit 0. DIAL MS will not work because the MS LOADER is 

logically different from the V2 LOADER. 

A. 4.11 NUM Routine 

The function of the NUM routines is to interpret numeric characters. NUM 

first strips the ASCII and stores the number in TEMP. NUM compares TEMP 
with DEVNUM, the number of defined devices, to check for an undefined number, 
exiting in such a case. If the number in TEMP is a defined device number, 
NUM checks HSWIT for 7777. If HSWIT is set, NUM clears it and calls the HALT 
routine. If HSWIT is not set, NUM checks GSWIT. If GSWIT is set, NUM clears 
it and calls the GO routine; otherwise NUM exits. 

A, 4. 12 HALT Routine 

The HALT routine checks the device select word to see if the device is in 
Pause mode and, if so, HALT exits. If the device is in A/D mode, HALT sets the 
select word to 0 to deselect the device, calls the routine HLTMS to put the 
Halt message on the Teletype que, and then exits. 

A. 4. 13 GO Routine 

The GO routine first checks the device select word to determine if the 
device is in A/D mode and, if so, GO exits. If the device is in Pause mode, GO 



A- 8 



calls GOMS to put the go message on the que. With the aid of 4 tables and rela- 
tive to the device number in TEMP, the GO routine next initiates the device. 

Device K has 2 tables associated to it: TIADK and TISTRK, TISTRK holds 
the parameters that define the device, and TIADK holds the addresses within the 
data acquisition routines of these parameters. To initiate a device, six parame- 
ters must be set up within the acquisition routines: starting address (2 words), 
select word, sampling frequency (variable), sampling frequency (fixed), and 
initial X axis SAM. There are two other tables that are shared by all devices 
VALTAB and ADRTAB: 



VALTAB, TISTRO 
TISTRl 
TISTR2 
TISTR3 
TISTR4 



ADRTAB, TIADO 
TIADl 
TIAD2 
TIAD3 
TIAD4 



Note that for device K - whose value is in TEMP - VALTAB-fK, ADRTAB+K point 
to TISTRK, TIADK respectively. The GO routine employs the above logic in 
selecting the tables appropriate to device K. GO further sets up a SAM 
instruction because analog devices require an initial X-axis SAM at location 
OSDVK. GO then sets HSWITK to 7777 for the routine CHKSWI , turns the interrupts 
off, and transfers the device parameters to the data acquisition routines. The 
interrupts must be off during parameter transfer because it is possible to 
get an interrupt from device J when device K is only partially initialized. 
Such a circumstance could produce adverse results for device K. The interrupts 
are off for 200 microseconds, which presents no problem for the data acquisition 
routines. Once the device is initialized all clock interrupts are enabled and 
MODE is checked. If TISA is in Pause mode, the A/D mode message is sent to the 
que. GO then sets MODE to 7777, turns the interrupts back on, and exits. 

A. 5 LINCTAPE ROUTINES 

There are six LINCtape routines that enable the user to either read a 
parameter list from LINCtape or write his data buffers onto LINCtape. 

A. 5. 1 READ Routine 

If the user selects the LINCtape option during setup mode, TISA calls the 
READ routine, which displays the QANDA message: 

READ TBLK 

UNIT _ 

When the message is terminated, READ sets a pointer to the QANDA answer buffer 
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and calls DORDC. 

A. 5. 2 DORDC Routine 

DORDC calls the routine TPARGS whose function is to translate a QANDA 
message which holds LINCtape arguments. If TPARGS returns to P+1, the QANDA 
input was illegal and DORDC implements the error exit, which is simply a recall 
to the READ routine. If TPARGS returns to P+2, then location TBLK holds the 
requested tape block; UNIT holds the low order unit bit i.e., UNIT=10 or 0; 
and the XOB holds the high order unit bits. Using the arguments from TPARGS, 
DORDC reads the requested TBLK into locations 7000-7377 (start of the data 
buffer), executes an I/O preset to clear all flags and the extended unit bits, 
resets no pause, and transfers the parameter list at 7000-7377 to the setup 
initialization table at 6000-6144. If the user requests a TBLK that does not 
contain a legitimate paramater list, DORDC checks the only value in the table 
that could be fatal to TISA and the user, to wit, the number of defined devices. 
The function of setup mode is to fill the initialization table with the user's 
parameters. As the user defines more instruments, more information is input to 
this table. When setup mode is terminated, TISA takes the information from 
the initialization table and distributes it to appropriate locations within the 
program. The number of user defined devices is in the table and determines the 
length of the table transfer. If the number of defined devices is greater than 
the maximum number allowed, TISA will extend beyond the initialization table and 
transfer arbitrary values to arbitrary locations; such a situation is quite 
obviously fatal. If the number of defined devices is too large, DORDC executes 
the error exit; otherwise, DORDC goes to the last leg of the setup routines 
(QADUN-f3), just as if input was from the keyboard. 

A. 5. 3 WRIT Routine 

WRIT first shuts off the interrupts so that the user cannot inhibit the 
write sequence via the keyboard. WRIT then retrieves the number of blocks to 

write from the initialization table (loc, BLKCNT) , translates it into DIAL codes, 
and puts it into the text field of the QANDA write message. The following 
message is then displayed: 

WRITE XYZ (OCT) TBLKS 

FIRST TBLK = 

UNIT _ 

Where XYY is the number described above. When the user terminates the message, 
WRIT sets a pointer to the QANDA answer field and calls DOWRC. 



A-10 



A. 5. 4 DOWRC 

Like DORDC, DOWRC calls TPARGS ; at the error return (P+1) is a recall to 
the routine WRIT . If there is no QANDA input error, DOWRC sets up the following 
arguments for DOMTP: WRI I (U) to ARGHI, MBLK\TBLK to ARGLO; then calls DOMTP. 
When DOMTP returns to DOWRC, the operation is finished and DOWRC turns the 
interrupts on and hangs up in the idle loop. 

A. 5. 5 TPARGS 

The function of TPARGS is to retrieve the TBLK and UNIT arguments from a 
QANDA answer field and to return to P+l for input error and P+2 for no error . 
To achieve this end, TPARGS enlists the aid of the more general QANDA numeric 
decoder DIGCHK, a routine that is heavily exercised during setup mode. DIGCHK 
has 3 returns: 



JMS I KDIG /CALL 

/NON DECIMAL CHAR RTN 

/QANDA END OF QUES . FIELD RTN 

/NORMAL RTN OCTAL NUM IN AC 



TPARGS changes location UPLIM of DIGCHK to minus 10 (l*s complement) so that 
non-octal input will be illegal. TPARGS then calls DIGCHK, retrieving in this 
manner one numeric argument at a time. If DIGCHK returns TPARGS to P-fl, then 
TPARGS returns to the calling program at P+1 (the TPARGS error return) . The 
arguments for TBLK are rolled and packed into location TBLK. DIGCHK is called 
until it executes the end of field return at whicn point TPARGS calls DIGCHK 
one more time for the UNIT argument. The low order unit bit is put into bit 8 
of location UNIT and the two high order unit bits go to bits 10 and 11 of the 
XOB. After the tape arguments have been set up, TPARGS restores UPLIM to its 
regular value and returns to P-f 2 . TPARGS always restores UPLIM before exiting, 
error or no error. 



A. 5.6 DOMTP 

The function of DOMTP is to. execute 
by a list of arguments. Currently, only 
enough in nature to read data as well as 



a series of tape transfers as indicated 
DOWRC calls DOMTP, but DOMTP is general 
write it. The arguments for DOMTP are: 



BLKCNT = - (the number to do) 

ARGHI = a LINCtape instruction 

ARGLO == initial MBLK\TBLK 

LDFSTR = initial LDF 



DOMTP first retrieves and sets up its arguments, then issues a tape instruction 
and calls TPWAIT, which is simply a routine to hang in the idle loop until the 
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tape operation is complete. When the tape is finished, DOMTP adds 1 to the 
TBLK and 1 to the MBLK, then checks the MBLK to see if it advanced from 7 to 0 . 

When the MBLK goes to 0, DOMTP resets it to 4 and adds 1 to the LDF instruction 
at TPLDF, All tape transfers are done via the data field. DOMTP then iterates 
the tape process^ counting each step. When the operation is finished, DOMTP 
stops the tape^ clears the extended unit bits, and exits. 

A. 6 DISPLAY ROUTINES 

The Display Routines present the user with one of two displays, depending 
upon SSWO: Help Frame, or Data Buffer Display. 

A. 6,1 DSCHLP Routine 

The DSCHLP Routine (help frame) is driven by 4 tables: (1) HLPTAB, which 
contains the DIAL codes for all the characters displayed in the help frame plus 
a number of control characters that are not displayed; (2) VCTAB, which is a 

table of scope vertical coordinates and determines the vertical alignment of 
the help frame; (3) HCTAB^ which is a table of scope horizontal coordinates 
and determines the horizontal alignment of the help frame; and (4) GRDTAB, 
which is the QANDA table of grid patterns. The following codes in HLPTAB are the 
control characters that direct DSCHLP to take certain actions: 

Symbol Value Meaning 

FULl 0600 Switch to full size characters 

CRl 4300 End of a line; go to next line 

ENDWDl 7700 End of help frame; exit 

CHGHC 3600 Reset horizontal coordinate 

The LINC data field is set to 2, where the GRID table is located. 

DSCHLP first sets up pointers to the tables and falls through to LNNXT. 
LNNXT puts the next vertical coordiaate in VCOORD, the next horizontal coordinate 
in BETAl^ and then checks the first character of the line to determine full or 
half size characters. The link bit is set to 0 for half size characters and to 
1 for full size characters . After setting character size, LNNXT goes to CHRNXT . 
CHRNXT loads a character from HLPTAB and checks for the control characters, 
CRl, ENDWDl, and CHGHC. CRl causes a jump to LNNXT, ENDWDl effects an exit, 
and CHGHC causes the next value in HCTAB to be placed in BETAl. If CHRNXT finds 
no control characters , it calls DSCCHR routine to DSC the character whose DIAL 
code is in the AC. 
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A. 6. 2 DSCCHR Routine 

DSCCHR finds an address in GRDTAB relative to the contents of the AC and 
stores the address in GRDPTR (BETA14). VCOORD is loaded into the AC and the 
character is displayed. To make a horizontal gap between characters so they 
won*t look pressed together on the scope, 2 or 4 is added to BETAl. DSCCHR 
checks the link bit which indicates character size. A gap of 2 is for half size 
and 4 is for full size 

A. 6. 3 Data Buffer Display 

The Data Buffer Display is controlled by two knobs, 0 and 4. The high 
order 9 bits of knob 4 determines cursor position; 9 bits will cover 512 points. 
The A/D value 7400 is converted to -1, and the value 377 is converted to -1000. 
The converted value is called the cursor count and is stored in location CURCNT. 
Every time a point is displayed, CURCNT is IS Zed. When CURCNT goes to zero, 
the cursor is displayed. The high order 6 bits of knob 0 is added to the 
initial scope address to find the address of the first point (leftmost scope 
point) to be displayed. Suppose the knob value is 10 and the initial scope 
address is 2000. The display routines display the data from 2010 to 3010 the 
first time they are called; the second time the display is called, locations 
2020 to 3020 are displayed, and so on. Varying the initial scope address in the 
manner described above lends the appearance of motion to the display routines. 
Positive knob values move the display from right to left; negative values, from 
left to right. 

When the Data Buffer Display is called, knob 4 is put into CURCNT, 
XCORD (loc 2017) is set -1000, and knob 0 is put into the AC. Next the FREEZE 
location is checked. If the display is frozen, the display routine (GODIS) is 
called immediately. If the display is not frozen, the routine SETMOT is call.ed 
to determine the initial scope address relative to knob 0. 

A. 6. 3.1 SETMOT - The locations BUFHI,BUFLO hold the initial 15 bit scope 
address that was used for the last call to the Data Buffer Display. The func- 
tion of SETMOT is to update this address for each call. The routine further 
must be capable of making the initial and terminal points of the buffer 

contiguous. Suppose knob 0 has a value of 20 and BUFHI,BUFLO = 0001,7770 (8K of 
core) . Adding 20 to this address extends 10 locations beyond the size of the 
data buffer, i.e., 0002,0010. There is no field 2 on an 8K PDP-12. This effect 
is called high end wrap around. For this case, SETMOT sets the initial address 
to 10 locations past the initial data buffer address.^ i.e. , 0001,7010. Low end 
wrap around is handled in analogous fashion. When SETMOT exits, the proper 
address is in BUFHI,BUFLO. Note that all routines which must handle 15 bit 
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addresses treat the high order half as a PDP-8 field* An address at HI,LO is 
referenced in the following manner: 



TAD HI 
CLL RTL 

RAL 
TAD CDFO 
DCA •+! 

0 /CORRECT CDF INST 

TAD I LO /CORRECT ADDR 



with the address BUFHI.BUFLO. BUFHI goes to CURCDF, BUFLO goes to BUFPTR. The 
routine SETCDF sets the data field relative to CURCDF, The BETA register for 
display is XCORD (2017) and runs from 7000 to 7777, Note that hardware channel 1 
is selected- When CURCNT goes to zero CURDIS is called to display the cursor. 
If BUFPTR goes to zero, a PDP-8 field boundary has been reached and FWDCDF is 
called to set the next data field. FWDCDF also checks for high end wraparound. 
BCNTR is set to -1000 when this location goes to zero, GODIS is finished, 
XYGET is called to display the X,Y coordinates. 

A. 6. 3.3 CURDIS - When CURDIS is called, the cursor Y coordinate is in the AC and 
it is stored at location YCUR, not only for use by CURDIS but also for subsequent 
use by the X,Y coordinate routines. 

The contents of the data field are put into XCURHI and BUFPTR is put into 
XCURLO. These two locations are the X coordinate and will be subsequently 
accessed by the routine XYGET. YCUR is compared to MAXCUR; if YCUR is greater 
than MAXCUR, -1 is put into TEMPHI and the cursor is displayed below the spectrum. 
Minus the length or the height of the cursor is in location CURLEN. The cursor 
is displayed by putting YCUR into the AC, displaying it CURLEN times via a DIS 
XCORD; prior to each DIS, TEMPHI is added to the AC. 

A. 6. 3. 4 XYGET Routines - The routines that determine the X,Y decimal 
coordinates use a table called LIMVL whose format is : 



A. 6 . 3, 2 GODIS Routine 



GODIS displays 512 consecutive data points, beginning 



LIMVLO , 



0 
0 
0 



/-starting address device 0 (LO ORD) 
/-starting address device 0 (HI ORD) 

-sampling frequency device 0 
/address of initial X-coordinate device 0 



BCDO 



LIMVLK, 



0 
0 
0 



/-S.A. device K (LO ORD) 
/-S.A. device K (HI ORD) 
/-sam.freq. device K 



BCDK 



/addr of X-COORD device K 
/-first unused core 



0 
0 



/location 
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The first task of XYGET is to find the data sector that contains the address 
XCURHI, XCURLO, This is done by adding the X coordinate to the starting addresses 
in the LIMVL table, always saving the sum for step k~l. if the sum for step k 
becomes minus, then the X coordinate lies in between the starting addresses used 
for steps k-1 and step k; and the sum for step k-1 is the address of the 
X coordinate, relative to the data sector that contains the X coordinate. 
Suppose that the data sector for device 0 is lOOOg points and the X coordinate 
is 07500, The starting address for device 0 is 0 7000; for device 1 it is 1 0000. 
The X coordinate is the 500th point in the data sector for device 0. Subtracting 
the starting address for device 0 yields a sum of +500 which is saved. Because 
the result is positive, the process continues for device 1, yielding 07500-10000 = 
-300, which is negative. The negative result means that the previous sum, step 
k-1, i.e., 500, is the desired address. If the entire table is scanned without 
a negative result, the X coordinate is in undefined data area and the XYGET 
routines exit. The relative address is then multiplied by the sampling frequency; 
this result is converted to a six digit BCD number. A routine to deflate by 
decimal radii is used for the conversion. The BCD number is stored, one digit to 
a word, at locations BCDVAL-BCDVAL+5 . If the sampling frequency is 3, the value 
to convert to BCD is 1700. The decimal value for 1700 is 960, which is stored 



as : 



BCDVAL, 0 
0 
0 

11 /9 

6 /6 
0 /O 



960 is a relative decimal value and must be added to the initial X coordinate 
which is stored from low to high, starting at location BCDK: 

BCDK, /UNITS 
/TENS 

/HUNDREDS 

/THOUSANDS 

/ 10 THOUSANDS 

The number at BCDVAL is added as a BCD number to the number at BCDK. To obtain 
the DIAL code for each digit, add 60 to the sum for each digit. The DIAL codes 
are stored in the table DCODEX: 



DCODEX, 3075 /X= 

4300 /CR lOOK 

0000 /lOK IK 

0000 /lOO 10 

0043 /UNITS CR 
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These values will subsequently be displayed by the routine DSCXY. 

After the table DCODEX has been set up for the X coordinate, the table 
DCODEY must be set up for the Y coordinate* First, 400 is added to YCUR to 
put it in the range 0-511(0-777); YCUR is then converted to a BCD value and then 
to DIAL codes, one digit at a time, and stored in the table DCODEY. 

A. 6. 3.5 DSCXY Routine - DSCXY sets the LDF to 2 to access the grid table; sets 
half size characters, and sets the X,Y display coordinate for the top left of 
the scope (0,400). The routine always displays X-, Y= but never displays 
leading zeroes or the value 0000, The non-numeric characters are separated from 
the numeric characters by the carriage return code (43). Display of numeric 
characters is inhibited until the first non-zero digit (DIAL code 60) is 
encountered. The characters are displayed by loading their codes into the AC 
and calling the routine DSCCHR. When DSCXY is finished, the entire scope display 
is complete. DSCXY exits to SCPRTN. 

A. 7 SETUP ROUTINES 

The function of the Setup Routines is to decode QANDA responses and put 
them into the initialization table which runs from location INISTR to LAST, or 
to fill the table from a specified block of LINCtape. QANDA and calls to 
QANDA are in segment 2. The Setup Routines start at location SETUP. For each 
QANDA setup message, the refresh return contains the instruction JMP CHKSNS: 

CHKSNS, SNS 0 

JMP QARFSH 
SETUP , PDP 

thus activating SSWO for all of Setup mode. The Setup Routines first call 
the routine FRSTR (fresh start) , which clears the data buffer and sets all 
pointers to their initial values. Message 1 is then displayed. After message 1 
comes either the READ message (see above) or message 2. 

A. 7.1 MESS2 Routine 

MESS2 first calls the routine RESTR (restart a device) , whose function is 
to reset all pointers to their initial values for defining device K. The initial 
values for device K are preserved throughout the entire definition of device K 
so that if an error is made in input the routine RESTR will be able to reset 
them. 

All values go into the table via the index pointer INIPTR. When message 2 
is terminated, the QANDA answer buffer is decoded and put into the initialization 
table. The first value is the device type. If the device is analog, the value 
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ANAVAL (4000) is put in the table; if the device is encoded, a value from the 
table ENCVAL is put into the initialization table. The next 3 values are the 
STARTING POINT, TOTAL POINTS, and SAMPLING FREQUENCY. The routine DIGCHK is 
used to convert the DIAL codes to digits. The routine DIGCHK expects that 
BETA14 (ANSPTR) is pointing to a QANDA answer field. When DIGCHK is called, it 
retrieves one QANDA character. If the QANDA character is 00 (a blank) it is 
ignored and another character is retrieved. If the QANDA character is QANDA 
end of question field (74, <) or QANDA end of answer buffer {34,\), DIGCHK exits 
to P4-2 . If the character is decimal (codes 60-71), DIGCHK exits to P+3 with 
the numeric value (0-11) in the AC. If the character is not decimal and not 
either 74 or 34, DIGCHK exits to the error return P+1. All DIGCHK error returns 
initialize the routine MESS2. 

To setup the starting point, the routines DIGCHK and DSCL4 are alternately 

called until the end of question field return. DSCL4 takes the contents of the 
AC and rolls and packs them 4 bits each call into the double precision 
accumulator (DAC) . After the starting point has been put into the DAC, the 
routine UPACK is called to take the BCD values out of the DAC and put them into 
the initialization table. 

After STARTING POINT has been set up, TOTAL POINTS is set up. For TOTAL 
POINTS, the routines DIGCHK and MULIO are alternately called until end of 
question field. MULIO does a decimal to octal conversion with the DAC and AC. 
When TOTAL POINTS is in the DAC, the arguments appropriate to TOTAL POINTS are put 
into the table, e.g., starting address device K, 2*s complement of the starting 
address, etc. The error conditions "no points" and "buffer full" are checked 
for at this time. 

Like TOTAL POINTS, SAMPLING FREQUENCY is retrieved by alternately calling 
DIGCHK and MULIO. After the sampling frequency is in the DAC, the error 
condition greater than 10 is checked for. If the sampling frequency is zero, 
it is set to 1 before being input to the table. Sampling frequency terminates 
definition of the device and message 3 is displayed. 

A. 7. 2 MESS3 Routine 

If the user requests more devices, the error conditions "no more devices 
and "buffer full" are checked first, then the routine NXSTR (start next device) 
is called, whose function is to set up all pointers for the definition of the 
next device; MESS2 is then recalled. If the user requests to start, an I/O 
preset is executed and the routine GBLK is called, whose function is to translate 
the defined data area into (-) the number of TBLKS and store it at location 
BLKCNT. After GBLK, the routine QADUN is called, whose function is to initialize 
TISA. 
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Associated to the initialization table is the table of addresses INIAD, which 
tells where all the initial values are to go. Using INIAD, QADUN distributes 
the initial values throughout TISA. The buffer preset and clock control 
registers are set at this time. The TTYQUE is initialized; pause mode is 
entered by setting the mode to A/D and putting the control H character into 
KBDBUF. The interrupts are turned on and the IDLE routine is called. 

The function of the IDLE routine is to keep TISA busy, when it is not 
acquiring data, by calling four routines and exiting. The routines and the order 
in which they are called are 

1. SCOPE DISPLAY 

2 . KEYBRD 

3 . CHKSWI 

4 . MESCHK 

A. 8 MEMORY CHECK ROUTINE 

The routine MEMCHK lies in the data area and is called once only (when 

TISA is loaded from LINCtape) , Its function is to determine the core limits 
of the PDP-12 on which TISA is running, MEMCHK puts the largest PDP-8 field 
in location MAXCDF and exits. This routine must be called for TISA to function 
properly and is the primary reason why the starting address for TISA is 4001 and 
the restart address is 402 0. 
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ADVANCE 


OUEIN 
QUECNT 



EXIT 




SAVE m c 
CLR KBDE 


HAR 
SUF 






SET PTRSTO 
CHARACTER TABLE 








GET NXT CHAR 
FROM TABLE 



CHAR 
MATCH 

? 





Y 


LOAD JMP 
INST FROM 
TABLE 






DO JM 


P INST 







1 tOF 






CLR NO 
PAUSE 






START 
DIAL 




FREEZE MESS 
TO AC 



C 







COMPLEMENT 
FREEZE 







DISPLAY 
FROZEN 



CALL QUPUT 




MOTION MESS 
TO AC 



B-5 



N PAUSE 
MODE 





Y 


lOF I 







C>3 






r 


7777 -> HSWIT 
0-*GSWIT 







[ 



0-^ HSWIT 



] 



^^l^^^HALT ^^^^ 







SAVE NUM (K) 
IN TEMP 










Y 


1 0-^GSWIT 1 







GO 







7777^GSW!T 
HSWIT 









Y 


CATPTR -1 1 
TO AC 1 







LOADER 



B-6 






Y 


MAQPTR -1 

TO AC 







^^^^^^ LOA D E R~^^ 






V 


lOF 







^^^^ 



> 





j V 


O^MODE 

0- CLOCK ENABLE 






0-ALL SELECT 
WORDS 






PAUSE MESS 
TO AC 






1 CALL OUPUT 







^^^^ HLTMS^^^^^ 



PAUSE 
MODE 
? 





N 


K = 0 











K = K + 1 







Y 


PAUSE MESS 
TO AC 






CALL QUPUT 1 






0 TO MODE 

0 TO CLOCK ENAB 











HALT MESS TO AC 






CALL QUPUT 






CALL NUMPUT 








c 



B-7 



IS 

DEVrCE K 
HALTED 
? 





N 


OTO SELOVK 






CALL HLTMS 1 







GO MS 







GO MESS TO AC j 






CALL QUPUT 1 






CALL NUMPUT 1 







NUMPUT 







NUM MESS K 
TO AC 






CALL QUPUT 








CALL QUPUT 





Y 


1 CALL GOMS { 






SETUP PTRS TO 
TABLES 






SETUP INITIAL 
X AXIS SAM 






OTO HSWITK 






lOF 






TRANSFER VALUES 
FROM TABLE TO 

DEVICE K PARAM 
LIST 






SAM XAXIS 
PUT AT OSDVK 






ENABLE ALL CLOCK 
INTERRUPTS 








A/DME 


SSTO 


AC 






B-8 







SAVE TABLE PTR 
IN AC 






iOF 

CLEAR XOB 
CLEAR ESF 






READ IN 
EDITOR GRID 
TABLE 






TRANSFER AC 
TABLE TO DIAL 
E6 TABLE 






READ IN 
DIAL LOADER 







C""*'diail 
LOADER 



^^^^ DOWRC^^^^^ 







CALL TPARGS 







WRIT ^^^^ 




Y ^ tlMPUT 
ERROR 



SETUP ARCS 
FOR DOMTP 



CALL DOMTP 



^^l^^TPARGS 



SET DIGCHK 
FOR OCTAL 
INPUT 



0-*TBLK 



CALL DIGCHK 




ROLL AND PACK 
1 DIG IT IN TBLK 







CALL DIGCHK 








LO ORDER 
U BIT TO 
UNIT 



ROR 3 TBLK 



ADV RTN TO 

P+2 



SET DIGCHK 
FOR DECIMAL 
INPUT 



B^9 



^^^^^^ EXJT^^^^ 



WRIT 







IC 


>F 



TRANSLATE BLKCNT 
TO DIAL CODES AND 
PUT IN OANDA 
WRITE MESS 



C 



DISPLAY 
NAME MESS 




OANDA 
DONE 
7 



C 



N 






REFRESH 




MESSAGE 





Y 


SET PTR TO 
OANDA ANSWER 
BUFFER 









Y 


DISPLAY 
WRITE MESS 







REFRESH 



c 



3 



SET PTRS TO 
OANDA ANSWER 
AND LOAD TABLE 



LOAD NEXT 
OANDA CHAR 



CHANGE TO 
77 





STORE CHAR 
IN LOAD 
TABLE 



GET UNIT 
NUM 



LOD PTR .1 
TO AC 



LOADER 




B-10 



^^^^ DORDC^^^^^^^^ 







CALL TPARGS 







READ 



INPUT 
ERROR 





N 


READ IN 
REQ, TBLK 






I/O PRESET 






SET NO PAUSE | 






SETUP 

IN IT TABLE 







DSCHLP 



ILLEGAL 
TBLK 

? 



CALL 


FRSTR 






~ NUM OF 
DEVICES TO 
AC 







STRRDE 



IDLE 



DISPLAY 
HELP 
FRAME 
? 





1 N 


KNOB 4 TO 
CURCNT 






-1000TOXCORD I 







CALL GODiS 








1 CALLCHKSWI 






CALL MESCHK 







B-ll 



SET PTRS 
TO TABLES 



SET VCOC 
BETA! FO 


)RD, 

R NXTLN 






LOAD 1ST CHAR 
OF ALN 



GODIS 





N 


SET HALF SIZE 






OTO LINK 






RELOAD 1ST 


CHAR 





1 SET FU 


Lt SIZE 1 






1TOL 


INK 








SET INITIAL 
SCOPE ADDR 
AND CDF 






SET COUNTER 
FOR 512PNTS 










LOAD THE NEXT 
DATA POINT 
AND SCR 1 








B-12 



GODIS 







SUB KNOBO 
FR0A4 8UFL0 









BUFHt 
ATMIN 
VAtUE 
? 





FLOW 

Y 


•I^BUFHI 
TO BUFHI 












GODIS 









ADD KNOB 0 TO 
BUFHI, BUFLO 







Ht END 
WRAP 

? 



MINCDF - 


BUFHI 






MINADR + BUFLO 
BUFLO 





Y 


•MINADR+ BUFLO 
TO BUFLO 






1 MAXCOF TO BUFHI | 







FWDCDF 







1 AOD1TOCURCDF | 







MINADR - 


^ BUFPTR 


MINCDF- 


^CURCDF 



CURCDF TO 
DATA FIELD 



B-13 



ADD 2 TO 
BETA1 



^[^^^^DSC CHR 







SET GRrO TABLE 
ADDR RELATIVE 
TO AC 






VCOORDTO AC 






DSC 1 CHAR 








LINK 
0 
? 



FOUND 







1 MULT DIFF 
1 BY SAM FREQ 






CONVERT RESULT TO 
BCD BY RADIX 
DEFLATION 






ADD BCD RESULT 
TO INITIAL X COORD 






CONVERT SUM TO 
DIAL CODES STORE 
ATDCODEX 







400 + YCUR TO YCUR 



I CONVERT YCUR TO BCD I 







CONVERT BCD RESULT 
TO DIAL CODES 
STORE AT OCODEY 







ADD 


4 TO 


BETA 


1 



CURDIS 







j AC TO YCUR 1 






DATA FIELD TO 
XCURHI 






BUFPTR TO 
XCURLO 






1 ITOTEMPHI 1 







DIS 
CURSOR 





Vs. BELOW ^ 
^V^SPECTRA ^X"^ 

Y 


•ITOTEMPHI 1 











YCUR TO AC 











ADO TEMPHI TO AC | 






DIS 1 POINT 1 


N 





30 POINTS 
? 



\ 



B-m 




B-15 



CHKSWI 




^^^^ READ ^^^^ 



DSC READ 

MESS 



CALL CHKSNS 






Y 


SET PTR TO 
QANDA ANSWER 







^^^FRSTR 







ZERO OUT 
DATA BUFFER 






IN1T ALL 
SETUP PTRS 
FOR DEVICE 0 







EXIT 



DSC ENC 
ERR 



CALL 
CHKSNS 



OA 
DONE 




IN IT PTR S 
FOR DEVICE K 






S. AODR LO 
S. ADDR HI 


TABLE 






-S,ADOR LO~l INIT 
S. AODR HI J*' TABLE 






^ 


DSCM 


ESS 2 






CALL CHK SNS | 








ENCODER SELECT 
TO AC 



AC TO TABLE 



UP OEV COUNT 




ANALOG 
SELECT 
TO AC 



B-.17 



^^^^^ A2L0P ^^^^ 



ME^2 ^^^^ 




PACK BCD VAL 
IN AC IN OAC 



TRANSFER STARTING 
POINT FROM DAC TO 
TABLE 



CALL DIGCHK 




INPUT 

ERROR 




CALL MUL10 







1 AC-*TEMPLO 1 






1 2»DAC-*DAC 1 






SAVE 


2«DAC 



4*DAC-»0AC 
YIELDS 8"DAC 



8*DAC + 2«DAC 
TO DAC 



DAC + TEIMPLO 
TO OAC 




B-.18 




B-19 




B-20 




B-21 



DIGCHK 













LOAD NEXT 
QANDA CHAR 


Y 


BLANK ^S»^ 



END 
OF QA 
FIELD 



rs IT 
A DECIMAL 
DIGIT 




j AC TO 


TABLE 









Y 


DIGIT 
TO AC 







TRANSFER INIT 
TABLE VALUES TO 
TISA ROUTS AND 
TABLES 









START CLOCK 






INIT TTYQUE 






SET TISA TO 
A/O MODE 
7777 - MODE 






210{CTRLH)-* 
KBDBUF 






ION 







CALL IDLE 



B-22 



0000 






«20 










0001 






/TISA (TIME INDEPENDENT 




0002 






/SPECTRUM ACQU IS IT ION) 




0003 






/MULTIPLE DEVICES INTERRUPT DRIVEN 


0004 






/MOVING 


k^INOOW 


DISPLAY 




0005 






/CURSOR 


AND X-Y 


DECIMAL 


R U M U U V 1 


0006 






/USES QANDA FOR 


SET 


UP 




0007 






/SUPP0RTS UP TO 


32K 


OF 




0010 








PMOOE 








0011 








*1 






/□ ! SPAT Cm 


0012 


0001 


5402 




JMP I 1 


♦ 1 




/p Monr 


0013 


0002 


0230 




I NTP 








0014 


0003 


0000 


BETAl # 


0 






/RFTA^ rnR I nAH 

/ouiMw run kaUMu 


0015 


0004 


0000 


BETA2# 


0 






/ROUTS 


0016 


0005 


0000 


8£TA3# 


0 








0017 








*10 








0020 


0010 


0000 


INIPTR* 


0 






/PTRS rOR TAR! T 


0021 


0011 


0000 


ADPTR# 


0 






/STTliP 


0022 
















0023 








<^20 








0024 


0020 


0000 


ADMESS t 


0 








0025 














/rnR TYPr nuT 


0026 














/R ntJ T T NTQ 


0027 


0021 


0000 


KBD8UF# 


0 






/HOLDS LAST 


0030 














' r\L.i DUMr\u wnMn 


0031 


0022 


0000 


TTYFLGi 


0 






/ HHl nc: 1 ACT 


0032 














/T TV CHAR 


0033 














f ^ VJ ir sNyINC 


0034 


0023 


0000 


QUEIN» 


0 








0035 














/FOR IN COMING 


0036 














/MFSSACFS 


0037 


0024 


0000 


QUEOUTi 


0 






/PTR rOR OUT 

i<> rW'^ WW' 


0040 














/GOING MFSS 


0041 


0025 


0000 


QUECNTi 


0 






/HOLDS NUMBFR 


0042 














/OF UNTYPFD 


0043 














/MESSAGES IN 


0044 














/TTY our 


0045 


0026 


0000 


STATUS* 


0 






/H OL nS CI OCK 


0046 














/BITS FROM CL SA 


0047 


0027 


0000 


OVTYP, 


0 






/ Tri 1 ^ wurTur p 


0050 
















0051 
















0052 
















0053 














/4Ci0(7is AW Ai nri 


0054 














/0xyyrrwrnnrn 

/ lUoAA-'t.lilV/WWt.U 


0055 


0030 


0600 


KINPUT# 


INPUT 






/PTR Tfl TWPIJT 


0056 














/R OUT 
f r\ wy 1 


0057 


0031 


6201 


CDF0 f 


CDF 0 








0060 


0032 


0000 


MAXCDF • 

1 » M " w w r f 


0 








0061 


0033 


0000 


MINCDF, 


CDFMIN 








0062 


0034 


7000 


MINADR» 


AORMIN 






/BUFFFR RnUNDS 


0063 


0035 


0000 


YCUR, 


0 






/Y COORD 


0064 
















0065 


0036 


0000 


DEVNUM, 


0 






/•NUM OF DV 


0066 














/AT RUN TIME 


0067 


0037 


2330 


KOADDi 


DADO 






/CALL TO DBL 


0070 














/PREC ADD 


0071 








»41 






/L MODE 


0072 


0041 


0002 




2 






/INTERRUPT 


0073 


0042 


5443 




JMP I ,*1 




/DISPATCH 


0074 


0043 


0200 




INTL 






0075 


0044 


0000 


DBLLO, 


0 






/DBL PREC 



00 76 


00 45 


0000 


nBi NTs 


0 

IC 


y A f 
/ M t» 


tJvJff 




so 


A p r i n 


0 


/DBL PREC 


\l) ±\u)0 


\O}0 'i f 




A D P U 1 




/ARG 












/ALSO s 












/XCURLOi XCURHI 












/CURSOR X COORD 


01 04 


0050 


0000 


TP MP ! n . 


0 

sC 




0105 


0051 


00 00 

!W U iW 


Tr MP M T . 


0 




010 6 


0052 


000 0 
VJ aJ )U gj 


U IN I fx > 


0 




01 07 


0053 


00 00 

sy iw Ky 


PPM T D . 
D w IN 1 n J 


0 




01 10 


0054 


0000 

iv If » 


D W r r f n » 


(A 

IC 


/rOK MOVING 


C11 1 1 

ft/i. J. X 










/W aNDO W 01 sp 


f ■* X 


0055 


%J ftJ V \Cj 


1 T MP TP . 


0 

sc 


yOTD Trt API/*'*? 

/PTK TO ARGS 


0113 










/r UK on AT UL T 


0114 

K/ <*» X ' 


jy iw « 


0 00 0 
!C >w ly >w 


Dp HP T P 




/PTR TO BCD VAL 


k3 X X -> 










/FOR SR XYGET 


0116 


)U VJ f 


0000 

iC jy iC K/ 


D A HP T R . 


0 


/PTR TO rWRS OF 


0117 










/10 FOR OCTAL 












/TO DECIMAL SR 


Ml 21 

X>' JL <<• X 




IC 10 10 




k7 


IC X cL c* 


CI W6 1 

K,/ Kj' W X 


7 773 


M A y nwKi 

n A aU V IM # 


n V/ M M A Y 

U V INn A A 


^ "H* kill ^ 1^ n #■* h J 

/- *"NUM OF DEV 


K/ X C> W 










/'ISA WILL 


0124 










/o gpp OR i 


1/11 25 

K.' X C 


62 

id' U £> 


0?5 77 

jC w / / 


PS O U L IN # 


C?! 7 7 


/GOES TO CLtN 


0126 










/INT ON OVF 


0127 

%/ JL C f 










/CHAN Ii2i3 


0130 


0063 

jCf W W 


4 4^6 


kn T f: . 

r\ U 1 V9 1 


n T r pu K 


/CALL TO SR TO 


0131 

X 'J X 










/CHK QANDA ANS 


0132 










/BUFER FOR 


0133 










/NUMER 1 C INPUT 


0134 


If JU W " 


3 000 

sJ IC JC/ SC 


^ M 1 il 10 
rV n UL X IC f 


rl U u X icl 


/CALL TO DECMAL 


X W ^ 










/TO OCT CVERT 


!£/ X O O 


(71 M A S 


9 M o r/i 
c W 


K 1 uL t p 


IDLE 


/CALL TO IDLE 


IC' X o / 










/LOOP 




fTi ^71 A ^ 


f Ji fTt f5i 


StU LJV0 f 


0 


/DEVICE SELECT 


Midi 

w X *T i 


f7l*3l A 7 
|y 10 0 / 


\o\o\o\c} 


SEtuVl f 


0 


/WORDS 




01 7 fTi 


m fA rn CA 
0000 


SELO V2 1 


0 


ly X *f 0 


^71 W 7 1 


M /91 fji r?( 
W 0 0 0 


SELD V3 # 


0 




it; X *? T 


r/ (A 7 V 


M M 

!c k>0 0 




0 






M fTl 7 "< 


7 7 7 7 
fill 


u c LI f T 
Ho W I f 0 f 


nil 




iy X " u 


CA(A 74 


1111 
I f { 1 


U C U T T 1 

now 1 1 X > 


7 7 7 7 




0147 


0075 


nil 


W ! T2 . 


77 77 
tiff 




0150 


0076 


nil 


1-1 ^ W ! T 3 . 


1111 
f f / f 




0151 


0077 


liii 
1 1 f t 


n o W i 1 *r 1 


1111 




0152 


01 00 

IC X IC K/ 


00 

)C iC o o 


cr i p T P 


c r t n \/ <7{ 
oL UU V0 




0153 


0101 


3 461 


XMi TM^ • 


nU 1 no 


/CAL SR TO PUT 


0154 










/HALT MESS IN 


W X 










/TTY QUE 


0156 


0102 


3b07 


i<r hM^ . 
rv u u n o # 


P n M Q 
blj no 


/CALL GO MESS 


0157 


0103 

X/ X K/ W 




nuu c. f 


10 


/MODE WORD 0» 


0160 










/PAUSE 7777«A\0 


0161 


0104 


0000 

IC )C IC iC 


TTMP . 


0 


0162 


0105 


10 .^"^ 

X IC ij w 




nUDM T 

UUrU r 


/CALL SR TO PUT 


0163 










/A MESS IN QUE 


0164 


010 6 


601 S 
y >c X 


r\ i IN i # 


T M T c T Q 1 

i N I 0 TH wl 


/TOP INIT TABLE 


0165 


0107 


6143 


i<Dj K r T . 

rs D U r\ w 1 9 


Pi i^PKiT 


/PTR TO ®NUM OF 


0166 


01 10 

IC X X K/ 








/TBLKS IN BUF 


0167 


&1 44 


T\U Mo 1 # 


1 ACT 

uA 0 T 


/ENTRY OF INIT 


0170 










/ T AdLL 


0171 


0111 


0000 


AAAP0, 


0 


/IST UNUSED PC 


0172 










/0 CORE LOG 


0173 








«200 


/L MODE INTRUPT 


0174 


0200 


3352 


INTL, 


OCA ASAVE 



017b 


0201 


7010 




RAR 






0176 


0202 


3351 




OCA 


LSAVE 




0177 


0203 


1040 




TAD 


40 


/MAKE LINC JMP 


0200 


0204 


0355 




AND 


P1777 


0201 


0205 


1354 




TAD 


P6000 




0202 


0206 


3274 




OCA 


RTNJMP 




0203 


0207 


6141 




LINC 


/SET UP LDF LIF 


0204 








LMODE 


/FOR INTERRUPT 


020t? 


0210 


0500 




108 




/RTN 


0206 


0211 


6234 




6234 


/RIB 


0207 


0212 


1060 




STA 


I 


/SAVE IB 


0210 


0213 


0000 




0 




0211 


0214 


0242 




ROL 


2 


/POSITION LOF 


0212 












/BITS 


0213 


0215 


0002 




POP 






0214 








PMODE 




021^? 


0216 


0350 




AND 


P37 




0216 


0217 


1347 




TAD 


ANLDF 




0217 


0220 


3271 




OCA 


RTNLOF 




0220 


0221 


1213 




TAD 


.-6 




0221 


0222 


7012 




RTR 




/POSITION LIF 


0222 


0223 


7010 




RAR 




/BITS 


0223 


0224 


0350 




AND 


P37 


0224 


0225 


1346 




TAD 


ANLIF 




0225 


0226 


3270 




OCA 


RTNLIF 




0226 


0227 


5234 




JMP 


SERVE 


/SERVICE INTRUP 


0227 


0230 


3352 


INTP. 


OCA 


ASAVE 


/P MODE INTRUP 


0230 


0231 


7010 




RAR 




0231 


0232 


3351 




OCA 


LSAVE 




0232 


0233 


7040 




CMA 




/7777 FOR PMODE 


0233 












/0000 FOR LMODE 


0234 


0234 


3345 


SERVE, 


OCA 


INTMOO 


/INTERRUPT 


0235 


0235 


6131 




CLSK 


/CLOCK ? 


0236 


0236 


7410 




SKP 




0237 


0237 


5275 




JMP 


TISA 


/YES SERVICE 


0240 












/DEVICES 


0241 


0240 


7300 


TIRTN. 


CLA 


CLL 




0242 


0241 


6031 




KSF 




/KEYBOARD ? 


0243 


0242 


5245 




JMP 


CNKTTY 


0244 


0243 


6036 




KR8 




/YES GET CHAR 


0245 


0244 


3021 




OCA 


K80BUF 


0246 


0245 


6041 


CHKTTY, 


TSF 




/TTY ? 


0247 


0246 


5256 




JMP 


INTOUT 


/NO EXIT 


0250 


0247 


6042 




TCP 




/CLR FLAG 


0251 


0250 


1420 




TAD 


I ADMESS 


/NXT CHAR 


0252 


0251 


7 45 0 




SNA 




/MORE TO TYPE ? 


0253 


0252 


5255 




JMP 


.♦3 


/NO 


0254 


0253 


6046 




TLS 




0255 


0254 


2020 




ISZ 


ADMESS 


/SET PTR FOR 


0256 












/NEXT CHAR 


0257 


0255 


3022 




DCA 


TTYFLG 


/SET TTY FLAG 


0260 












/0 MEANS TTY 


0261 












/NOT BUSY 


0262 


0256 


1351 


INTOUTi 


TAD 


LSAVE 


/RTN FROM 


0263 


0257 


7004 




RAL 




/I NTERRUPT 


0264 


0260 


1352 




TAD 


ASAVE 




0265 


0261 


2345 




ISl 


INTMOO 


/P OR L MODE ? 


0266 


0262 


5266 




JMP 


OUTL 


/L MODE 


0267 


0263 


6244 




RMF 




02 70 


0264 


6001 




ION 






0271 


0265 


5400 




JMP 


I 0 




0272 


0266 


6141 


OUTL* 


LINC 




0273 


0267 


0006 




6 




/DJR 



027 4 


<^ "7 r/ 


!7: (A (2 


H 1 NL 1 r ? 


iO 






0275 


02 71 


tA ra CA f% 


RTNuDF ? 








0276 


0272 


r? K, fTi fii 




jr oi ri 




/ 1 Do 


0277 


/7» O 7 "X 

02/3 






i UN 






0300 




M /a fi< 


D T Kt 1 O 

HTN JMP p 


0 






0301 












/DATA 


0302 












/ ACQU I Q 1 T i ON 


0303 












/SERVICE 


0304 












/UtV 1 CES 


03 05 


02 /5 


01 05 


T 1 5) A • 


CLSA 


/o A V t 


03 00 


^ O "7 


f?i o ^ 




uC A 


C T A T ! J C 

b I ATUb 


/uLvCK DjTS 


0307 


m o "7 "f 

02/7 


i fii Q ^ 




TAP 




/CHK Dy0 


0310 




/Ti 01 A A 
K^Kf 00 




ANU 


en n VI 01 


/'^R.UC.UT WD UVw 


0311 


r« "? f7! i 


/ 50 




SNA 




/ Kt AD T f 


0312 


030 2 


5321 




JMP 


DVl 


/NO GO TO DVl 


0313 


0303 


3027 




OCA 


DVT Y P 


/SAVE TYPE 


0314 


0304 


>i ii 7 r2i 

4 30 




JMS 


I KINPUT 


yr*Ai i fMDiif 

/CALL INPUT 


0315 












/PARAM LIST 


0316 












/DEVICE 0 


0317 


0305 


0110 




100 


X AaDV0 


/X AXIS SAM 


0320 


0306 


0114 




100 


YAXUV0 


/Y AXIS SAM 


0321 


0307 


0000 


o f" r% \i ni 

oFD v0 > 


0 




/SAM 


0322 












/pREQ (VAR? 


0323 


0310 


(A Ch rSt fA 

01(300 


IV c f?" n u J9I 

KoF U V 0 » 


0 




/SAM 


0324 












/FREQ CFIXtD) 


0325 


0311 


0000 


H I D V0 * 


0 




/15 BIT BUFFER 


0 32 6 












/ADDR BVoBll 


0327 












/OF HI ORD 


0330 












yfC nATA Fin 

/IS DATA FLD 


16/ 3 o 1 


3 i.c 


(VI 01 n 


1 n n w 01 


0 




rjTT Anno 

/X2 BIT ADDH 


ra o 

0332 












/WITHIN DATA 


"7 '7 

0333 












/FIELD 


0334 


031o 




Oo uV 0 1 


0 




/OLD 


m 7 "/ c: 

0335 












AVfC Cam 

/X A A 1 0 5 AM 


0336 


0314 


nk <A n fA 
0000 


ELODV0I 


0 




/LAST 


rtl TP T? "7 

0337 


0315 


m m n ni 
0000 


tHlDV0> 


0 




/DATA ADDR 


0 34 0 


0310 


5321 




JMP 


DVl 


/HERE TO 


0341 












/CALL DVl 


03 42 












/HERE TO HLT 


0343 












/DEV ICE 0 


03 44 


0317 


3066 


Lit 1* n \i n 


DCA 


c i n 1/ m 

oELDV0 


/0 DESELECTS 


0345 












/A DEV ICE 


0346 


m •» Q fa 

0320 


TE 01 "7 TT 

3073 




DCA 


IJ C LI f V Al 

H5WI T0 


ycpT uAiT euifT 

/otT HALT SWIT 




03cl 


1 ni O 


r\ If 4 

UVli 


TAD 


STATUS 




ni T f% 


rt "7 n Q 


k)k3 0 / 




AND 


S tLDVl 


/SELECT WD DVl 


sy3 51 


MHO"? 

iCiO 23 


"7 il C 

7 4 50 




SNA 




/READY ? 


035 2 


032 4 


K iz "7 

5/53 




JMP 


I KDV2 


/NO GO TO DV2 


03 53 


0325 


3027 




DCA 


QVT T r 


/SAVE TYPE 


0354 


032 6 


4 430 




w n o 




/CALL INPUT 


0355 












/PARAM LIST 


)0000 












/DEVICE 1 


0357 


0327 


0111 




100 


XAXDVl 


/X AXIS SAM 


< i (A 

^0 0 k3 


00 0 W 


0115 




100 


YAXDVl 


/ Y AXIS SAM 


ra ^ -1 
0 OO 1 


(A It "< i 

0 331 


M f3i <^ ffl 
0000 


SFD V 1 # 






/SAM 


(71 "2 O 












/FREQ (VARJ 








ly c E" n \/ "4 

KSF 0 VI # 


0 




/SAM 


^7 ^ yi 












/FREQ CFIXED5 


01 -z C 
WOO!? 




fit j7< 


HI DVl# 


0 




/15 BIT BUFFER 














/ A UU n ®D A J. 


0367 












/OF HI ORO 


0370 












/IS DATA FLD 


0371 


0334 


0000 


LOOVl, 


0 




/12 BIT ADDR 


0372 












/WITHIN DATA 



0573 










/F| ELD 


0374 


0335 


0000 


OSDVl, 


0 


/OLD 


0375 










/X AXIS SAM 


0376 


0336 


0000 


ELODVl, 


0 


/LAST 


0377 


0337 


0000 


EHIDVl, 


0 


/DATA ADDR 


0400 


0340 


5753 




JMP I KDV2 


/HERE TO 


0401 










/CALL DV2 


0402 










/HERE TO HLT 


0403 










/DEVICE 1 


0404 


0341 


3067 


HLTDVl, 


DCA SELDVl 


/0 DESELECTS 


0405 










/A DEVICE 


0406 


0342 


7 001 




I AC 


/SET HALT SWIT 


0407 


0343 


3074 




DCA HSWI Tl 




0410 


0344 


5753 




JMP I KDV2 


/MXT nr VI CF 


0411 


0345 


0000 


INTMOD# 


0 




0412 


0346 


0600 


ANLIF* 


600 




0413 


0347 


0640 


ANLDFi 


640 




0414 


0350 


0037 


P37, 


37 




0415 


0351 


0000 


LSAVEt 


0 




0416 


0352 


0000 


ASAVE # 


0 




0417 


0353 


0400 


K0V2 , 


DV2 




0420 


0354 


6000 


P6000. 


6000 




0421 


0355 


1777 


P1777, 


1777 




0422 








«400 




0423 


0400 


1026 


DV2# 


TAD STATUS 


/CHK n V2 


0424 


0401 


0070 




AND SELDV2 


/SELECT WD DV2 


0425 


0402 


7450 




SNA 


/READY ? 


0426 


0403 


5223 




JMP DV3 


/NO GO TO 0V3 


0427 


0404 


3027 




DCA DVTYP 


/SAVE TYPE 


0430 


0405 


4430 




JMS I KINPUT 


/CALL INPUT 


0431 










/PARAM LIST 


0432 










/DEVICE 2 


0433 


0406 


0112 




100 XAXPV2 


/X AXIS SAM 


0434 


0407 


0116 




100 YAXDV2 


/Y AXIS SAM 


0435 


0410 


0000 


SFDV2, 


0 


/SAN 


0436 










/FREQ (VAR) 


0437 


0411 


0000 


KSFDV2 , 


0 


/SAM 


0440 










/FREQ (FIXED) 


0441 


0412 


0000 


HI0V2, 


0 


/15 BIT BUFFER 


0442 










/ADDR B9*B11 


0443 










/OF HI ORD 


0444 










/IS DATA FLD 


0445 


0413 


0000 


L00V2# 


0 


/12 B I T ADDR 


0446 










/W f TM I N n ATA 


0447 










/F I Ei D 


0450 


0414 


0000 


0SDV2, 


0 


/OLD 
' Www 


0451 










/X AXIS SAM 


0452 


0415 


0000 


EL00V2i 


0 


/LAST 


0453 


0416 


0000 


EHIDV2, 


0 


/DaTA ADDR 


0454 


0417 


5223 




JMP 0V3 


/HERE TO 


0455 










/CALL DV3 


0456 










/HERE TO HLT 


0457 










/DEVICE 2 


0460 


0420 


3070 


HLTDV2* 


DCA SEL0V2 


/0 DESELECTS 


0461 










/A DEVICE 


0462 


0421 


7105 




CLL lAC RAL 


/SET HALT SWIT 


0463 


0422 


3075 




DCA HSWI T2 




0464 


0423 


1026 


DV3, 


TAD STATUS 




0465 


0424 


0071 




AND SEL0V3 


/SELECT WD DV3 


0466 


0425 


7450 




SNA 


/READY ? 


0467 


0426 


5246 




JMP 0V4 


/NO GO TO DEV4 


0470 


0427 


3027 




OCA DVTYP 


/SAVE TYPE 


0471 


0430 


4430 




JHS I KINPUT 


/CALL INPUT 



n A f '1 












/PARAM LIST 


0473 












/DEVICE 3 


04 74 


04 31 


0113 




100 


X AX UV3 


ft AXIS SAN 


CA A 7 Si 


fey 4 0^ 


k3 1 1 / 






V A V Pi V/ *J 


/f AAlb SAn 


Sfl*i /o 




f?l fTi fTl (TS 


c c n \/ 'Tt 
or U V 0 1 


(54 




/©An 














REQ f V AR J 


05 00 




\0\0\li\c) 


ty c p ri li *? 

K5FDV3 1 


0 




/Cam 














/FREQ CFIXtU) 


05 02 


ffl >1 "2 K 






0 




/Ip BIT BUFFER 


ni K ni "7 












/AUOH HV^Bll 


y 0 4 












/Or HI 0 R u 


Di c: 












/I?a DATA FtU 


0b06 


0*»oo 


01p 00 


) n n VI "z 


0 




/12 8IT AOOR 


0507 












/WITHIN DATA 


0510 












/FIELD 


0511 


04o / 




uSuVo# 


0 




/OLD 


0512 












/X AXIS SAM 


Si 1 'Z 

k3v 1 O 


ffl .A ,A ^ 




CI n \i n 






/L AS T 




fJi A A 


0000 


c* u ? n w "x 

LH I DVo 1 


0 




/DATA ADDR 




^ A O 


K O A A 

? c 4 0 




t u n 
JMr 


DV4 


/HERE TQ 












/CALL uV4 


Kyi / 












/HERE TO HLT 


iTI C O fJ( 

0!?<i 0 












/DEVICE 3 




0 4 4 3 


3071 


HLTDVo 1 


OCA 


SEL0V3 


/0 DESELECTS 


0522 












/A DEVICE 


0523 


0444 


7125 




STL 


lAC RAL 


/SET HALT SWIT 


0524 


04 47 


•» fX 

O076 




OCA 


H5WIT3 




r» c: r> c 


lo44 0 


10^6 




TAD 


STATUS 




0 


1(9 4 *T / 


(71(7! "T O 




ANU 


0 tUuV4 


/SELECT WD UV4 


yODc / 


f/ /I K, (9< 
4 !? t/ 


•7 /I c r» 




C M A 




/Ht ADY 1 


\00oV} 


A R 1 
k3 4 P i 


R A 7 0 




JMP 


? r V T V 
I tX I T 


/NO EXIT 


0->ol 


W 4 P4 


1 f/l 0 7 




DC A 


W T V Q 

DVT T r 


/SAVE TYPE 


f3 K "JT '3 


k34 -DO 


44 00 




JMS 


I KI NPUT 


/CALL INPUT 


t35o 0 












/PARAM LIST 


nGi. A 

0!?o4 












/DEVICE 4 


m c 

0535 


0454 


0120 




100 


XAXDV4 


/X AXIS SAM 


m U T ^ 




0l£4 




100 




/Y AXIS SAM 


7 


W4 P 0 


r>i ni /Ti 


SF0V4 J 


\d 




/SAM 


fa u /I 












/FREQ lyAR) 




k3 4 D / 


fyi iTi i'^ 


c p* n \/ >t 

KSFu V4 J 


in 




/SAM 


WD *4<C 












/FREQ CFIXED) 


0543 


W4 0 16 




HIDV4, 


0 




/15 BIT BUFFER 


k35 












/ADDR pywBll 














/QF HI ORD 


0546 












/IS DATA FLO 


fj* K /t ■? 


n< ^ ik <i 
W 40 1 


f>t (71 17( 

So 1000 


1 1^ n li yi 

LuDV4 1 


0 




/12 BIT ADDR 


05 50 












/NITHIN DATA 


0551 












/FIELD 




4 0 c 


Him 


OouV *♦ 1 


0 




/OLD 


R X 












yv avtc oam 

/X AXIS SAn 




fH A £>. '<> 
ICI 4 0 0 






0 




/uAST 


\0Z>OZ> 


fil 4 A il 
Ic) 40 4 




CUT n w i 
tn I DV4 # 


0 




/DATA ADDR 


ni i*% pr i 


A S 
W4 0-? 


R A TO 




JMP 


I EXIT 


/HERE TO 


(7 c C 7 
k3 I? D / 












/EXIT 














/HERE TO HLT 


\ODOX 












/DEVICE 4 


K ^ O 


fTt >l A A 

04 00 


"1 (51 7 0 




OCA 


SELDV4 


/0 DESELECTS 














/A DEVICE 


10 -? o 


ru H Q f 






CLL 


lAC RTL 


yCPT UAI T CJJTT 

/SET HALT oW IT 


05fe5 


0470 


3077 




OCA 


HSWI T4 




0566 


0471 


5672 




JHP 


I EXIT 




0567 


0472 


0240 


EXIT, 


TIRTN 




0570 


0473 


6002 




lOF 




/O KEY 



0571 


0474 


6141 

JU ~ i 




1 f Mr 


/START n T A 1 


05 72 












0^73 


0475 


0001 
ly *' iw X 




A y n 

M A (J 




0574 


0 4 7 6 


0602 
ly w ly c 




ITT 2 




w / 


(?) 47 7 


601 5 

W ft' J. 




IMP n ? A 1 












f n w w t 


/P r V 




iy ,</ iw 


17 40 


P • 


7A n T kPni AP 


/ p n 1 A p T T V y n 


*j \j tj %i 


0B01 

sy -i* iw «£» 


7040 

f if "f 




PM A 
w M 


/ n TP QPrfTDliM 


06 01 


05 02 


37 4 0 




nr A T KP ni A p 




06 02 


0503 


17 40 




T A n T K P Hi A R 


y T e cpr r TDUM 

OrLviKUn 


06 03 


0504 


7640 




vJ 4. M W ^ 




0604 


0505 


531 0 

Vrf J, ly 




j MP . *3 




0 60 5 


0^0 6 


1343 




TAfl NORMS 
« H w 111 w r\ "1 v> 




0606 


050 7 

jiy ✓ iw / 


7 410 
' ~ i ly 




Si<P 


✓Tft nnr 


0607 


0^i5 1 0 


1^44 




TAfl TWVM*? 
} M U i iN V n o 


'TtP ilNVfc.ni 


0610 










/MTQQ Tn niir 

/ n t5> 0 1 U U vC. 


0 611 

W ^ 4. 


0511 


4505 


KT YR TM . 


IMC T I IP 1 IT 




I?16 1 P 

iu w 4, ^ 


0512 

lU ^ ^ c. 


571 


?y T T . 

C A 1 1 # 


IMP T A 1 


^ W oo r Av»t 


s> w 4». 


IC ✓ -JL 


X c- U 






/ p T M 


M A-1 4 

OX " 


iy JL ^ 


1 7"^7 


r . 


lAU i rSrKLU 


/ r f\ L T 


iv Q 4> 


0S 1 5 
»y i/ J, ^ 


70 40 
f ly *T iy 




r M A 


/ l^Un r Kt tct WO 


0616 
sy w X w 


0516 


37*^7 




nrA T kPRrn 




86 17 


05 1 7 

K/ J. r 


17 37 




TAR T KTRrn 


/Id QP r r TP MM 
4 O or L w 1 K Un 


0620 

iC/ V/ c iv 


0520 

jy ^ C iw 


7640 

/ w "T ly 




<^ ? A ri A 

OCA UL A 


/ r p n 3t r M o 


06 21 


05 21 


53 24 




iM P * 3 




W £. C 


0 5 22 


13 41 

Jt w *^ X 




T A n MflTMQ 


/ iMU nU 1 1 UN 


0623 


0523 


741 0 




QK p 


/MPCQ Tn niir 


0624 


0524 


13 42 




TAH rPM<* 
t A w r r\ n o 




0625 


0525 


53 1 1 




iMP KTYRTM 


VMrQQ Tn niir 


0626 


0526 

K/ C W 


1 103 

J. J* ly w 


O 1 


TAn wnnr 


/ 0 l\ C. T 


062 7 


0527 


7640 




OCA UL A 


/ r Allot nuDt i 


0630 


053 0 


531 2 

w i C 




J MP ?y T T 


/ K\n ? r MAP r c 

/ IM U 4 b 1 V U fc. 0 


06 31 


05 31 


60 02 

w fc/ jy c. 




T n r 


/y cc r ki 1 HA 
/ T LO U AL L yA 


0632 


0532 


5745 




iMP T K^r TUP 


/ cr T IIP PHI lT<s 


0633 


0533 


1103 




TAD Mnnr 


/u L< r Y 
/ W rs L T 


0634 


0 5 4 

jy ^ "T 


7640 




OCA U U A 


✓ PAiiQr Mrtnr 0 
/rAU^ic. nUUt f 


0635 


0535 
tj ,j 


5312 

w J, (C 




IMP 3 T T 


/ M n T r M no c y 
/NO IGIMUKL W 


0 636 

V W W 


0536 

ly ^ w u 


57 4A 




IMP f l/'LiD T T 


y V r c r« A 1 t 


063 7 










y WK I T t KOUT 0 


0640 
ly w ^ 


0537 
tj ^ \j f 


2040 
c ly "t If 


r\ r f% c u # 


r D r r 3 r 

r n t. L C t. 




0641 


0540 


C. ^ W V 




r U U A rt 




0642 


05 41 


w u X w 


M n T M 9 


M Q M n T 
n O n U ! 




0643 


0542 


6624 


FRMS 1 


M Q r p 




0644 


0543 


6635 


IN W n # 


M Q M 0 P 
H o iM u r\ 




0645 


0544 


6646 




"1 0 A «>i V 




0646 


0545 


4023 


KSPTUP . 

iN w Ct 1 w r 1 


O C < V r 




0647 


054 6 


4400 


KWR ! T * 


WR T T 




0 63 0 








^ A 0 0 
Q IM KJ 


/ U t T i Nr UT r HQn 


0651 


0600 


0000 


INPUT . 
4 r W i 1 


0 


/nr w T rr w 

/UtVibt l\ 


06b2 










/ flCT paramttcp 


065 3 










/L i oT r HUM U ALU 


065 4 


u >y ju 


X w kl^ iy 




TaH ? fkiDtiT 




0655 


06 02 


33 0 3 

\j w IC^ O 




UwA OApIa 


yv avtc cam 
/A AXio oAfI 


0656 


0603 


22 00 
c £- ty sy 




T C 3 T M P M T 

i O C i N r w f 




0657 


0604 


16 00 
«!•'«' ly jy 




I A U i A IN r w ! 




06 60 


0 60 5 


32 54 




A O A n T 




06 61 




2 200 








066 2 


06 07 


12 00 




TAn T K{ D n T 
i A U J. Nr U I 


y p T D T n 
/ r 1 K 1 U 


0663 


0610 


3335 




DCA TRTQ 

W V *s r r\ t W 


/S A MP 1 ! N n TRTQ 


0664 










/LAST COUNT 


0665 










/(VAR) 


0666 


0611 


2200 




IS2 INPUT 




0667 


0612 


1200 




TAD INPUT 


/PTR TO 



0670 


0613 


3334 




DC A 


KFREQ 


/SAN FREQ 


0671 












/CFIXED) 


0672 


0614 


2200 




IS2 


INPUT 


/PTR TO 


0673 


0615 


1200 




TAD 


INPUT 


/BUFFER 


0674 


0616 


3331 




DCA 


COFVAL 


/CDF BITS 


0675 


0617 


2200 




ISE 


INPUT 


/PTR TO 


0676 


0620 


nm 




TAD 


INPUT 


/BUFFER 


0677 


0621 


3330 




DCA 


ADDR 


/ADDR 


0700 


0622 


2200 




ISi 


INPUT 




0701 


0623 


1200 




TAD 


INPUT 




0702 


0624 


3327 




DCA 


OLDSAM 


/PTR TO OLOSAM 


0703 


0625 


2200 




J S 2 


INPUT 




0704 


0626 


1600 




TAD 


I INPUT 


/PTR TO LAST 


0705 


0627 


3332 




DCA 


ENDtO 


/DATA ADDR 


0706 


0630 


2200 




I S£ 


INPUT 




0707 


0631 


1600 




TAD 


1 INPUT 




0710 


0632 


3333 




DCA 


ENDHI 




0711 


0633 


2200 




ISZ 


INPUT 


/FIRST RTN IS 


0712 












/JHP TO DV K^l 


0713 












/2ND IS HLT DVK 


0714 


0634 


1027 




TAD 


DVTYP 


/ANALOG 


0715 


0635 


7710 




SPA 


CLA 


/OR ENCODED ? 


0716 


0636 


5 3 02 




JHP 


ANALOG 




0717 


0637 


2735 


ANARTNi 


ISl 


I FREQ 


/READY TO SAH 


0720 












/Y AXIS ? 


0721 


0640 


5600 




JMP 


I INPUT 


/NO GO TO 


0722 












/OV K^l 


0723 


0641 


1734 




TAD 


I KFREQ 


/RESET FREQ 


0724 


0642 


3735 




DCA 


I FREQ 


/FOR NXT PASS 


0725 


0643 


173 0 




TAD 


I ADDR 




0726 


0644 


3336 




OCA 


HOLD 


/BUFFER ADDR 


0727 


0645 


1731 




TAD 


I COFVAL 


/SETUP COF 


0730 


0646 


7104 




CLL 


RAL 




0731 


0647 


7006 




RTL 






0732 


0650 


1031 




TAD 


CDr0 




0733 


0651 


3252 




OCA 






0734 


0652 


0000 




0 




/CDF N 


0735 


0653 


6141 




LINC 




0736 


0654 


0000 


SAMY, 


0 




/SAM Y AXIS 


0737 


0655 


0002 




2 




/POP 


0740 


0656 


3736 




DCA 


I HOLD 


/PUT IN DATA 


0741 












/BUFFER 


0742 


0657 


6201 




CDF 


0 


/RESTORE FLD 0 


0743 


0660 


1332 




TAD 


ENOLO 


/DVK IS FIN! 


0744 












/HHEN CURRENT 


0745 


0661 


1730 




TAD 


I ADDR 


/ADOR 


0746 


0662 


7640 




S2A 


CLA 


/CCDFVALiADDR) 


0747 


0663 


5273 




JMP 


NFOVK 


0750 


0664 


7004 




RAl 






0751 


0665 


1333 




TAD 


ENDHI 


/^TERMINAL ADDR 


0752 












/CENOHI 1 


0753 


0666 


1731 




TAD 


1 CDFVAL 


/ENDLO) 


0754 


0667 


7640 




S ^ A 


CLA 




0755 


067 0 


5273 




JHP 


NFDVK 




0756 


0671 


2200 




IS2 


INPUT 


/FINI OV K 


0757 


0672 


5600 




JHP 


I INPUT 




0760 


0673 


7101 


NFOVKi 


CLL 


lAC 


/ADV CURRENT 


0761 


0674 


1730 




TAD 


1 ADDR 


/ADDR 


^ i be 


^ 1 


3/30 




DCA 


I ADDR 






0676 


7004 




RAL 






0764 


0677 


1731 




TAD 


I CDFVAL 




0765 


0700 


3731 




DCA 


1 COFVAL 




0766 


0701 


5600 




JMP 


I INPUT 


/NORMAL RTN 



0770 

0771 

0772 

0773 

0774 

0775 

0776 

^111 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1010 

1011 

1012 

1013 

1014 

101i> 

1016 

1017 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1030 
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DCA 


08LL0 


/LAST VAL 


O <C y5 -1 


2 5 0 6 


1051 




TAD 


TEMPHI 




2 64 2 


250 7 


304 5 




DCA 


D8LHI 




■5 A ^ 
c 0 H 0 




0 ^Tj c o 




ISE 


CNTR 


/DONE BOTH 7 


2644 


2511 


5261 




JMP 


DBLLOP 


/NO 


2645 


2512 


1044 




TAD 


DBLLO 


/UNITS 


2646 


2513 


3456 




DCA 


I BCDPTR 




2647 


2514 


6141 




LINC 





2650 LMODE 



2651 


0515 


0077 




SET 


1 XCORD 


/SET PTR TO 


2652 


0516 


1533 




0C0DEX*4 


/X-Y TABLE 


2653 


0517 


0002 




POP 






2654 








RHODE 




26t>5 


2520 


1330 




TAD 


NEG5 


/SET FOR 5 


2656 


2521 


3052 




DCA 


CNTR 


/BCD ADOS 


26^7 


2522 


3053 




DCA 


BCNTR 


/HOLDS BCD 


2660 












/CARRYS 


2661 


2523 


5724 




JMP 


I 




2662 


2524 


2600 




8CD10P 


/CONT NXT PAGE 


2663 


25 25 


6443 


KLIM, 


LIMVL0 




2664 


2526 


6435 


KBCDi 


8CDVAL 




2665 


2527 


6417 


KRAD, 


RADVAL 




2666 


2530 


7773 


NEG5, 


-5 






2667 












/ADD ABSOLUTE 


2670 












/DECIMAL VIA 


2671 












/LIMPTR TO 


2672 












/DECIMAL XCOORD 


2673 












/VIA BCDPTR AND 


2674 












/STORE FINAL 


2675 












/RESULT IN 


2676 












/X«Y TABLE 


2677 








»SCPFLO^600 




2700 


2600 


7300 


BCOLOP, 


CLA 


CLL 




2701 


2601 


1053 




TAD 


BCNTR 


/CARRY«0il 


2702 


2602 


1455 




TAD 


I LIMPTR 


/0^11 


2703 


2603 


1456 




TAO 


I BCOPTR 


/0-11 


2704 


2604 


3050 




DCA 


TEMPLO 


/0«23 


2705 


2605 


1050 




TAD 


TEMPLO 


/CHK CARRY 


2706 


2606 


1353 




TAO 


Ml 2 




2707 


26137 


7500 




SMA 




/CARRY ? 


2710 


2610 


3050 




DCA 


TEMPLO 


/YES CORRECT 


2711 












/ANSER IS IN AC 


2712 


2611 


7204 




RAL 


CLA 


/L«l ON CARRY 


2713 


2612 


3053 




OCA 


BCNTR 


/SET CARRY FOR 


2714 












/NEXT BCD ADO 


2715 


2613 


7040 




CMA 




/RESET PTRS 


2716 


2614 


1056 




TAO 


BCDPTR 




2717 


2615 


3056 




DCA 


BCDPTR 




2720 


2616 


2055 




ISI 


LIMPTR 




2721 


2617 


1050 




TAD 


TEMPLO 


/ANSWER*60 


2 722 


2620 


1354 




TAD 


P60 


/=OIAL CODE 


2723 


2621 


6141 




lINC 




2724 








IMODE 


/STORE IN 


2725 


0622 


1357 




STH 


XCORD 


/X«Y TABLE 


2726 


0623 


1020 




IDA 


I 


/BU XCORD 


2727 


0624 


3777 




«H8IT 




2730 


0625 


2017 




ADD 


XCORD 




2731 


0626 


4017 




STC 


XCORD 




2732 


0627 


0002 




POP 






2733 








PMQDE 




2734 


2630 


2052 




ISZ 


CNTR 


/DONE ? 


2735 


2631 


5200 




JMP 


BCOLOP 


/NO 


2736 


2632 


1456 




TAD 


I BCOPTR 


/YES GET 100K 


2737 


2633 


1053 




TAD 


BCNTR 


/DIGIT+CARRY 


2740 


2634 


1354 




TAO 


P60 




2741 


2635 


6141 




LINC 




2742 








LMODE 




2743 


0636 


1357 




STH 


XCORD 




2744 


0637 


0077 




SET 


I XCORD 


/NOW SET FOR 


2745 


0640 


1535 




OCOOEY*! 


/Y VALUE 


2746 


0641 


0002 




POP 





2747 






27t?0 


2642 


7344 


2751 


2643 


3052 


2752 


2644 


1355 


2756 


2645 


1035 


27^4 


2646 


3035 


275!? 






2756 


2647 


1457 


2757 


2650 


3046 


2760 


2651 


3053 


2761 


2652 


2057 


2762 


2653 


1035 


2763 


2654 


1046 


2764 


2655 


2053 


2765 


2656 


7500 


2766 


2657 


5254 


2767 


2660 


1457 


2770 


2661 


3035 


2771 


2662 


2057 


2772 


2663 


1053 


2116 


2664 


1357 


2774 


2665 


6141 


2775 






Zllt 


0666 


1377 


2777 


0667 


0002 


3000 






3001 


2670 


7200 


3002 


2671 


2052 


3003 


2672 


5247 


3004 


2673 


1035 


3005 


2674 


1354 


3006 


2675 


6141 


3007 






3010 


0676 


1377 


3011 


0677 


6122 


3012 






3013 






3014 


2700 


3035 


3015 


2701 


6214 


3016 


2702 


7110 


3017 


2703. 


7012 


3020 


2704 


3047 


3021 


2 70 5 


1054 


3022 


2706 


3046 


3023 ■ 


2707 


7001 


3024 


2710 


3051 


3025 


2711 


1351 


3026 


2712 


3052 


3027 






3030 


2713 


1352 


3031 


2714 


1035 


3032 


2715 


7750 


3033 






3034 


2716 


5321 


3035 


2717 


7040 


30 36 


2720 


3051 


3037 


2721 


1035 


3040 


2722 


1051 


3041 


2723 


6141 


3042 






3043 


0724 


0157 


3044 


0725 


0002 


3045 









RHODE 




CLL 


STA RAL 




OCA 


CNTR 




TAD 


PP400 




TAD 


YCUR 




DCA 


YCUR 


YLOP. 


TAD 


I RADPTR 




DCA 


ARGLO 




OCA 


8CNTR 




ISH 


RADPTR 




TAD 


YCUR 




TAD 


ARGLO 




IS2 


8CNTR 




SNA 






JMP 


*=3 




TAD 


I RADPTR 




DCA 


YCUR 




ISl 


RADPTR 




TAD 


8CNTR 




TAD 


P57 




LING 




LMODE 




STH 


I XCORO 




POP 






PMQOE 




CLA 






ISl 


CNTR 




JMP 


YLOP 




TAD 


YCUR 




TAD 


P60 




LINC 




LMODE 




STH 


I XCORD 




JHP 


DSCXY 




PMODE 


CURDlSi 


DCA 


YCUR 




ROF 






CLL 


RAR 




RTR 






OCA 


XCURHI 




TAD 


8UFPTR 




DCA 


XCURLO 




lAC 






OCA 


TEMPHI 




TAD 


CURLEN 




DCA 


CNTR 




TAD 


MAXCUR 




TAD 


YCUR 




SPA 


SNA CLA 




JMP 


CURLOP-l 




CMA 






OCA 


TEMPHI 




TAD 


YCUR 


CURLOP. 


TAD 


TEMPHI 




LINC 




LMODE 




DIS 


XCORD 




PDF 






PMODE 



/DO 1008, 108 
/Y BCD OVERT 
/MAKE Y ^ 



/Y IS 0-777 
/•100, -10 



/I DEFLATE 
/BCD VALUE 

/DONE ? 

/NO 

/+100# *10 
/RESET VALUE 

/OFF BY 1 
/60-1 

/DIAL CODE 
/TO X-Y TABLE 



/DONE ? 
/NO 

/UNITS 

/STORE 
/THE TABLE 
/IS FINALLY 
/READY 
/HERE TO 
/DIS CURSOR 
/Y COORD 



/X COORD HI 

/X COORD LO 

/DELTA V *.-l 
/CURSOR IS VERT 
/LN OF LENGTH 
/=C(CURLEN) 
/IF Y COORD 
/TOO HI CURSOR 
/IS DIS BELOW 
/SPECTRUM 

/TOO HI SET 
/DELTA V TO •I 



i 



3(346 


2726 


2052 




IS2 


CNTR 


3047 


2727 


5322 




JMP 


CURLOP 


3050 


2730 


5731 




JMP 


I ,*1 


3051 


2731 


2275 




CURRTN 


3052 








LMODE 


30 53 


0732 


&3241 


OSCCHR • 


ROL, 


1 


3054 


0733 


1120 




ADA 


I 


3055 


0734 


7330 




GRDTAB-1^2000 


3056 


0735 


4014 




STC 


GRDPTR 


3057 


0736 


1120 




ADA 


I 


3060 


0737 


0000 


VCOORD, 


0 




3061 


0740 


1774 




DSC 


I GRDPTR 


3062 


0741 


1774 




DSC 


I GRDPTR 


3063 


0742 


1020 




IDA 


I 


3064 


0743 


0002 


P2i 


2 




3065 


0744 


0452 




L2E 




3066 


0745 


2743 




ADD 


P2 


3067 


0746 


1140 




ADM 




3070 


0747 


0001 




1 




3071 


0750 


6000 




JMP 


0 


3072 








PMODE 


3073 


2751 


7750 


CURLEN? 


KURLEN 


3074 












3075 


2752 


7431 


MAXCUR# 


•377«KURLEN 


3076 












3077 












3100 


2753 


7766 


M12i 


-12 




3101 


2754 


0060 


P60, 


60 




3102 


2755 


0400 


PP400, 


400 




3103 


2756 


7774 


MM4, 






3104 


2757 


0057 


P57i 


57 




3105 








PAGE 


3106 


3000 


0000 


MUL10I 


0 




3107 


3001 


3050 




DCA 


TEMPLO 


3110 


3002 


4217 




JMS 


DSCL 


3111 


3003 


1044 




TAD 


D8LL0 


3112 


3004 


3046 




DCA 


ARGLO 


3113 


3005 


1045 




TAD 


OBLHI 


3114 


3006 


3047 




DCA 


ARGHI 


3115 


3007 


4217 




JMS 


DSCL 


3116 


3010 


4217 




JMS 


DSCL 


3117 


3011 


4437 




JMS 


I KDADD 


3120 


3012 


3047 




DCA 


ARGHI 


3121 


3013 


1050 




TAD 


TEMPLO 


3122 


3014 


3046 




DCA 


ARGLO 


3123 


3015 


4437 




JMS 


I KDADD 


3124 


3016 


5600 




JMP 


I MyL10 


3125 


3017 


0000 


DSCLi 


0 


3126 


3020 


7300 




CLA 


CLL 


3127 


3021 


1044 




TAD 


OBLLO 


3130 


3022 


7004 




RAL 


3131 


3023 


3044 




DCA 


D8LL0 


3132 


3024 


1045 




TAD 


OBLHI 


3133 


3025 


7004 




RAL 




3134 


3026 


3045 




DCA 


OBLHI 


3135 


3027 


5617 




JMP 


I DSCL 


3136 


3030 


0000 


DCIA, 


0 


3137 


3031 


7200 




CLA 




314 0 


3032 


1045 




TAD 


DBLHI 


3141 


3033 


7040 




CMA 




3142 


3034 


3045 




OCA 


OBLHI 


3143 


3035 


1044 




TAD 


OBLLO 


3144 


3036 


7041 




CIA 



/MULT BY 2 
/ADDR IS REL 
/TO GROTAB 



/MAKE H0RI2 
/GAP BET CHARS 
/2 FOR HALF 
/4 FOR FULL 



/=«LENGTH OF 
/CURSOR 
/MAX Y COORD 
/FOR CURSOR 
/ABOVE SPECTRUM 



/DAC*10+AC 
/TO OAC 
/DAC*2 

/SAVE 



/YIELDS 
/0AC»8 

/^DAC*2=DAC«10 
/NOW ADD NEW 
/VAL 

/=DAC»10+AC 
/RAL DAC »DAC«2 



/2S COMP OF OAC 



3X45 
3146 
3147 
3150 
3151 
3152 
31 53 
3154 
3155 
3156 
3157 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3230 
3231 
3232 
3 23 3 
3234 
3235 
3236 
3237 
3240 
3241 
3242 
3243 



3037 
3 04 0 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3060 

3061 
3062 
3063 
3064 
3065 
3066 
3067 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3130 



7450 
2045 
3044 
5630 
0000 
3050 
4217 
4217 
4217 
4217 
1044 
1050 
3044 
5643 
0000 
7346 
3050 
5264 

7012 
7012 
3044 
1044 
0306 
3410 
1044 
2050 
^261 
7200 
1045 
0306 
3410 
1045 
7012 
7012 
0306 
3410 
3044 
3045 
5655 
0017 
0000 
1330 
3004 
1036 
3052 
1404 
7510 
5323 
3104 
4501 
7040 
3404 
7200 
2004 
2052 
5314 
5707 
0073 



0SCL4i 



UPACKi 



PCKLOPi 



P17i 
CHKSWI , 



CHKLOPj 



BYHLT, 



HSWPTR, 



SNA 
IS2 
OCA 
JMP 
0 

OCA 
JMS 
JMS 
JMS 
JMS 
TAD 
TAD 
DCA 
JMP 
0 

STA 
DCA 
JMP 



OBLHI 
08LL0 
I DCIA 

TEHPLO 

OSCl 

OSCL 

DSCL 

DSCL 

DBLLO 

TEMPLO 

DBLLO 

I 0SCL4 

CLL RTL 
TEMPLO 



RTR 

RTR 

DCA DBLLO 
TAD OBLLO 
AND P17 
DCA I INIPTR 
TAD DBLLO 
ISZ TEMPLO 
JMP PCKLOP 
CLA 

TAD DBLHI 

AND P17 

OCA I INIPTR 

TAD DBLHI 

RTR 

RTR 

AND P17 

DCA I INIPTR 

OCA DBLLO 

OCA DBLHI 

JMP I UPACK 

17 

0 

TAD HSWPTR 

DCA BETA2 
TAD DEVNUM 
DCA CNTR 
TAD I BETA2 
SPA 

JMP BYHLT 
DCA TEMP 
JMS I KHLTMS 
CMA 

DCA I BETA2 

CLA 

ISE 8ETA2 
IS2 CNTR 
JMP CHKLOP 
JMP I CHKSWI 
HSWIT0 
PAGE 



/PACK BCD IN 
/DAC sROL 4 
/MOVE 4 LEFT 



/UNPACK DAC 

/PUT IN INITAB 

/5 VALS 3 IN 

/DBLLO 

/2 IN DBLHI 

/NXT VAL 

/TO LOW 4 BITS 

/UPDATE 



/I VAL TO TABLE 

/DONE ? 
/NO 

/LAST VALS 



/CLR DAC 



/SEE IF TISA 
/HAS HALTED 
/ANY DEVS 
/«NUM DEF INED 



/TISA HALT ? 
/NO 

/HLT MESS 
/TO QUE 
/CLR SWIT 



/FRESH START 
/CLR BUFFER 
/INIT ALL ARCS 



3244 


3200 


0000 


FRSTR, 


0 






3245 


3201 


7200 




CLA 




/PUT 0S FROM 


3246 


3202 


1034 




TAD 


MINADR 


/MINCDFiMINAOR 


3247 


3203 


3046 




DCA 


ARGLO 


/TO MAXCDF, 7777 


3250 


3204 


1033 




TAD 


MINCDF 




32bl 


3205 


3060 




OCA 


CURCDF 




3252 


3206 


4672 


CLRUOP, 


JHS 


I KSET 


/SET CDF 


3253 


3207 


3446 




DCA 


I ARGLO 


/A 0 TO 8UFER 


3254 


3210 


2046 




ISZ 


ARGLO 


/DONE FIELD ? 


3255 


3211 


5207 




JMP 




/NO 


3256 


3212 


2060 




ISZ 


CURCDF 


/ADV FLO 


3257 


3213 


1060 




TAD 


CURCDF 




3260 


3214 


7041 




CIA 






3261 


3215 


1032 




TAD 


MAXCDF 




3262 


3216 


7700 




SMA 


CLA 


/FINI ? 


3263 


3217 


5206 




JMP 


CLRLOP 


/NO 


3264 


3220 


6201 




CDF 


0 


/RESET FLO 


3265 


3221 


3053 




DCA 


BCNTR 


/DEV COUNT 


3266 


3222 


1034 




TAD 


MINADR 


/IST AVAI L 


3267 


3223 


3274 




DCA 


LSSALO 


/8UF ADDR 


3270 


3224 


1033 




TAD 


MINCDF 




3271 


3225 


3275 




DCA 


LSSAHI 


/=SA DV 0 


3272 


3226 


1106 




TAD 


KINI 




3273 


3227 


3276 




OCA 


LSINI 




3274 


3230 


1277 




TAD 


KENC 


/SA ENC TABLE 


3275 


3231 


3300 




DCA 


LSENC 




3276 


3232 


5600 




JMP 


I FRSTR 




3277 












/INIT ARGS FOR 


3300 












/CURRENT DEVICE 


3301 


3233 


0000 


RESTR, 


0 






3302 


3234 


7200 




CUA 






3303 


3235 


1053 




TAD 


BCNTR 


/»NUM OF 


3304 












/DEFINED OVS 


3305 


3236 


3052 




DCA 


CNTR 




3306 


3237 


1274 




TAD 


LSSALO 


/SA CURN DV 


3307 


3240 


3021 




DCA 


CURNLO 




3310 


3241 


1275 




TAD 


LSSAHI 




3311 


3242 


3020 




DCA 


CURNHI 




3312 


3243 


1276 




TAD 


LSINI 


/PTR TO INITAB 


3313 


3244 


3010 




DCA 


INIPTR 


/CURN DV 


3314 


3245 


1300 




TAD 


LSENC 




3315 


3246 


3022 




DCA 


ENCPTR 




3316 


3247 


3044 




DCA 


DBLLO 




3317 


3250 


3045 




DCA 


DELHI 




3320 


3251 


1301 




TAD 


P4060 


/CURN DV NUM 


3321 


3252 


1052 




TAD 


CNTR 


/TO QA TXT FLO 


3322 


3253 


3702 




DCA 


I KTXT26 


3323 


3254 


5633 




JMP 


I RESTR 




3324 












/INIT ARGS NXT 


3325 












/DV REVERSE OF 


3326 












/RESTR 


3327 


3255 


0000 


NXSTR, 


0 






3330 


3256 


7200 




CLA 






3331 


3257 


1052 




TAD 


CNTR 




3332 


3260 


3053 




DCA 


BCNTR 




3333 


3261 


1021 




TAD 


CURNLO 




3334 


3262 


3274 




DCA 


LSSALO 




3335 


3263 


1020 




TAD 


CURNHI 




3336 


3264 


3275 




DCA 


LSSAHI 




3337 


3265 


1010 




TAD 


INIPTR 




3340 


3266 


3276 




OCA 


LSINI 




3341 


3267 


1022 




TAD 


ENCPTR 




3342 


3270 


3300 




OCA 


LSENC 





3^43 


3271 


5655 




JMP 


I NXSTR 




3344 


3272 


2320 


KSET, 


SETCDF 




3345 


3273 


7757 


INILEN# 


INISTR-INIEND 


-1 


3346 


3274 


0000 


LSSALOf 


0 






3347 


3275 


0000 


LSSAHI # 


0 






33t?0 


3276 


0000 


LSINI p 


0 






3351 


3277 


3306 


KENCi 


ENCVAL 




3352 


3300 


0000 


LSENCi 


0 






3353 


3301 


4060 


P4060 , 


4060 




33 54 


3302 


4573 


KTXT26 # 


TXT2*6 




3355 


3303 


6144 


KADRt 


INIAD«1 




3356 


3304 


7776 


CLKCNTi 


-2 






3357 


3305 


4100 


CLKMODi 


Aim 






3306 


0 0 40 


ENCVAL 1 


0040 


/ENABLE CHAN 1 


3361 


3307 


0010 




0010 




3362 


3310 


0002 




0002 


/ff ft 3 


3363 


3311 


0000 




0 




/MUST HAVE 0 


3364 












/HERE 


3365 


3312 


7200 


QADUN^ 


CLA 




/DONE SETUP 


3366 


3313 


1052 




TAD 


CNTR 


/NUH OF DEV 


000/ 


3314 


7041 




CIA 




i t -7 rt 

00 /]0 


00 XO 


< (71 1 i 


c* ▼ Q 0 r* 

STRROE 1 


OCA 


OE VNUM 




33 71 


3316 


1036 




TAD 


DE VNUM 




00/2 


3317 


35 10 




DCA 


I KLAST 


/VERY LAST 


3373 












/ENTRY IN 


337 4 












/TABLE 


3375 


3320 


1036 




TAD 
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4060 


4076 


3410 


AlCONT. 


DCA I INIPTR 


/SELECT WD TO 


4061 










/INIT TABLE 


4062 


4077 


2052 




IS2 CNTR 


/UP DV CNT 


4063 










/X COORD DV K 


4064 


4100 


4463 


A2L0P, 


JMS I KDIG 


/GET 1 DIGIT 


4065 










/FROM OA FLO 


4066 


4101 


5243 




JMP MESS2 


/INPUT ERROR 


4067 


4102 


5305 




JMP A2C0NT 


/DONE QA FLD 


4070 


4103 


4766 




JMS I KDSCL4 


/I BCD VAL IS 


4071 










/AC SCALE AND 


4072 










/PACK IN DAC 


4073 


4104 


5300 




JMP A2L0P 




4074 


4105 


4767 


A2C0NT, 


JMS I KUPACK 


/UNPACK AND PUT 



407b 










/IN TABLE 


4076 










/TOTAL POINTS 


4077 


4106 


4463 


A3L0P* 


JHS I KOIG 


/GET 1 DIGIT 


4100 


4107 


5243 




JHP MESS2 


/INPUT ERROR 


4101 


4110 


5313 




JMP A3C0NT 


/DONE QA FLO 


4102 


4111 


4464 




JMS I KMUL10 


/DECIMAL TO 


4103 










/OCTAL OVERT 


4104 










/ANSWER IN OAC 


410b 


4112 


5306 




JMP A3L0P 




4106 


4113 


7200 


A3C0NTi 


CLA 


/CHK FOR 


4107 


4114 


1044 




TAD OBLLO 


/NO POINTS 


4110 


4115 


7640 




SZA CLA 




4111 


4116 


5322 




JMP NOT0 




4112 


4117 


1045 




TAD DBLHI 




4113 


4120 


7650 




SNA CLA 




4114 


4121 


5770 




JMP I KER0PT 


/ERR 0 PTS 


4115 


4122 


1021 


NOT0, 


TAO CURNLO 


/GET ST ADDR 


4116 


4123 


3046 




DCA ARGLO 


/NXT DV 


4117 


4124 


1020 




TAD CURNHI 


/=TOT PTS+ 


4120 


412 5 


3047 




DCA ARGHI 


/ST ADDR DV K 


4121 


4126 


4437 




JMS I KOAOD 




4122 


4127 


1044 




TAD DBLLO 


/SAVE NXT SA 


4123 


4130 


3021 




OCA CURNLO 




4124 


4131 


1045 




TAO DBLHI 




412b 


4132 


3020 




DCA CURNHI 




4126 


4133 


4771 




JMS I KOCIA 


/2S COM OAC 


4127 


4134 


1044 




TAD OBLLO 




4130 


4135 


3410 




DCA I INIPTR 


/-^SA ADDR 


4131 


4136 


1045 




TAD DBLHI 


/NEXT DEV 


4132 


4137 


3410 




DCA I INIPTR 




4133 


4140 


1044 




TAD OBLLO 


/SAVE FOR 


4134 


4141 


3023 




OCA OUEIN 


/GBLK SR 


4135 


4142 


i045 




TAO DBLHI 




4136 


4143 


3024 




DCA QUEOUT 




4137 


4144 


4774 




JMS I KPIOAC 




4140 


4145 


1044 




TAD DBLLO 


/i»ENO ADDR 


4141 


4146 


3410 




OCA I INIPTR 


/DEV K 


4142 


4147 


1045 




TAO OBLHl 




4143 


4150 


3410 




OCA I INIPTR 




4144 










/CHK FOR 


4145 


4151 


1032 




TAD MAXCOF 


/BUFFER FULL 


4146 


4152 


3047 




DCA ARGHI 




4147 


4153 


7040 




CMA 




4150 


4154 


3046 




DCA ARGLO 




4151 


4155 


4437 




JMS I KOAOD 


/IF -END ADR IS 


4152 










/GT BUF LEN 


4153 










/BUF IS EXCEDED 


4154 


4156 


7420 




SNL 


/IS OAC » ? 


4155 


4157 


5762 




JMP I KCONMS 




4156 


4160 


47 72 




JMS I KERFUL 


/YES BUF ERROR 


4157 


4161 


5243 




JMP MESS2 




4160 


4162 


4200 


KCONMS, 


C0NMS2 




4161 


4163 


3200 


KFRSTR, 


FRSTR 




4162 


4164 


3233 


KRESTR, 


RESTR 




4163 


4165 


4303 


KERENCf 


ERRENC 




4164 


4166 


3043 


KDSCL4, 


DSCL4 




4165 


4167 


3055 


KUPACKi 


UPACK 




4166 


4170 


4311 


KEH0PTi 


ERR0PT 




4167 


4171 


3030 


KOCIA, 


DCIA 




4170 


41/2 


4317 


KERFUL. 


ERRFUL 




4171 


4173 


3406 


KLOHI, 


LOHI 




4172 


4174 


3400 


KPIOAC, 


PIDAC 





4173 •QAFLO*200 



4174 


4200 


1044 


C0NMS2, 


TAD 08LL0 




4175 


4201 


7640 




S2A CLA 


/SET BUFF FULL 


4176 


4202 


5207 




JMP 0K2 




4177 


4203 


1045 




TAD 08LHI 


/SWITCH 


4^00 


4204 


7640 




S2A CLA 


/7777=FULL 


4201 


4205 


5207 




JMP 0K2 




4202 


4206 


7040 




CMA 


/ITS FULL 


4203 ■ 


4207 


3026 


0K2i 


DCA STATUS 




4204 


4210 


3044 




DCA D8LL0 


/SAH FREQ 


4205 


4211 


4463 


A4, 


JMS 1 KDIG 


/I DIGIT 


4206 


4212 


5700 




JMP I KMESS2 


/INPUT ERROR 


4207 


4213 


5216 




JMP A4C0NT 


/DONE QA FLD 


4210 


4214 


4464 




JMS I KMULiiS 


/DEC TO OCT 


4211 


4215 


5211 




JHP A4 




4212 


4216 


7200 


A4C0NT, 


CLA 




4213 


4217 


1044 




TAD DBLLO 


/CHK GT 10 


4214 


4220 


1301 




TAD NE:G12 




4215 


4221 


7740 




SMA S2A CLA 




4216 


4222 


5327 




JMP ERFREQ 


/ERROR FREQ 


4217 


4223 


1044 




TAD DBLLO 


/SET 0=1 


4220 


4224 


7450 




SNA 




4221 


4225 


7001 




I AC 




4222 


42 26 


7041 




CIA 


/• FREQ TO TAB 


4223 


4227 


3050 




DCA TEMPLO 




4224 


4230 


1050 




TAD TEMPLO 




4225 


4231 


3410 




DCA I INIPTR 




4226 


4232 


1050 




TAD TEMPLO 




4227 


4233 


3410 




DCA I INIPTR 




4230 


4234 


1050 




TAD TEMPLO 




4231 


4235 


3410 




DCA I INIPTR 




4232 


4236 


6141 




LINC 


/DSC 


4233 








LHODE 


/DO - 


4234 


0237 


7013 


MESS3, 


JMP QAINIT 


/I MORE INSTS 


4235 


0240 


0650 




TXT3 


/2 START 


4236 


0241 


0524 




ANSWER 




4237 


0242 


6021 




JMP CHKSNS 




4240 


0243 


1300 




LOH 




4241 


0244 


4524 




ANSWER^HBIT 




4242 


0245 


1420 




SHD I 




4243 


0246 


6200 




6200 


/START ? 


4244 


0247 


6270 




JMP ALLDUN 


/YES 


4245 


0250 


1460 




SAE I 




4246 


0251 


0061 




61 


/MORE DVS 7 


4247 


0252 


6237 




JMP MESS3 


/NO ERROR 


4250 


0253 


0002 




POP 




42t?l 








PMODE 


/CHK FOR NO 


4252 


4254 


7200 




CLA 


/MORE DEVICES 


4253 


4255 


1052 




TAD CNTR 


/=NUM DEFINED 


4254 


4256 


1061 




TAD MAXOVN 


/s-NUM ALLOWED 


4255 


4257 


7650 




SNA CLA 




4256 


4260 


5335 




JMP ERRDEV 


/ERROR NO MORE 


4257 










/DEVICES 


4260 


42 61 


1026 




TAD STATUS 


/CHK FOR NO 


4261 


4262 


7700 




SMA CLA 


/MORE PTS 


4262 


4263 


5266 




JMP OKI 




4263 


4264 


4317 




JMS ERRFUL 


/NONE LEFT FOR 


4264 


4265 


5236 




JMP MESS3-1 


/NEXT DEV 


4265 


4266 


4677 


OKI, 


JMS I KNXSTR 


/SET ARGS FOR 


jf O i ^ 

4266 










/DEVICE K*l 


4267 


4267 


5700 




JMP I KMESS2 


/DO IT ALL 


4270 










/OVER AGAIN 


4271 








LMODE 




4272 


0270 


1020 


ALLDUN, 


LDA I 





^276 


0271 


0020 




20 


4274 


0272 


0004 




ESF 


4275 


0273 


0002 




POP 


4276 








PMODE 


4277 


4274 


4702 




JMS ! KGBLK 


4300 


4275 


5676 




JMP I .♦I 


4301 


4276 


3312 




QADUN 


4302 


4277 


3255 


KNXSTR* 


NXSTR 


4303 


4300 


4043 


KMESS2, 


MESS2 


4304 


4 301 


7766 


NEG12i 


-12 


4305 


4302 


3430 


KGBLKi 


GBLK 


4306 


4303 


6141 


ERRENCi 


LING 


4307 








LMOOE 


4310 


0304 


7013 




JHP QAINIT 


4311 


0305 


1006 




TXTi4 


4312 


0306 


0000 




0 


4313 


0307 


6021 




JMP CHKSNS 


4314 


0310 


6046 




JMP REMS2 


4315 


0311 


6141 


ERR0PTi 


6141 


4316 


0312 


7013 




JMP QAINIT 


4317 


0313 


0757 




TXT10 


4320 


0314 


0000 




0 


4321 


0315 


6021 




JMP CHKSNS 


4322 


0316 


6042 




JMP MESS2»1 


4323 


031/ 


0000 


ERRFULi 


0 


4324 


0320 


6141 




6141 


4325 


0321 


7013 




JMP QAINIT 


4326 


0322 


0765 




TXTll 


4327 


0323 


0000 




0 


4330 


0324 


6021 




JMP CHKSNS 


4331 


0325 


0002 




POP 


4332 








PMODE 


4333 


4326 


5/17 




JMP I ERRFUL 


4334 








LMOOE 


4335 


0327 


6141 


ERFREQ* 


6141 


4336 


0330 


7013 




JMP QAINIT 


4337 


0331 


0774 




TXT12 


4340 


0332 


0000 


FREE, 


0 


4341 


0333 


6021 




JMP CHKSNS 


4342 


0334 


6042 




JMP MESS2.1 


4343 


0335 


6141 


ERRDEVi 


6141 


4344 


0336 


7013 




JMP QAINIT 


4345 


0337 


1001 




TXT13 


4346 


0340 


0000 




0 


4347 


0341 


6021 




JMP CHKSNS 


4350 


0342 


6237 




JMP MESS3 


4351 


0343 


6141 




6141 


4352 


0344 


7013 


READ, 


JMP QAINIT 


4353 


0345 


0705 




TXT5 


4354 


0346 


0524 




ANSWER 


4355 


0347 


6021 




JMP CHKSNS 


4356 


0350 


0074 




SET I ANSPTR 


4357 


0351 


0524 




ANSWER 


4360 


0352 


0002 




POP 


4361 








PMODE 


4362 


4353 


5754 




JMP I 


4363 


4354 


1664 




DQROC 


4364 








PAGE 


4365 


4400 


6002 


WRIT, 


lOF 


4366 










4367 


4401 


1507 




TAD I KBLKCT 


4370 


4402 


7041 




CIA 


4371 


4403 


6141 




LINC 



/I\0 PRESET 



/GET BLK CNT 



/OSC 

/ERR ENC 



/LINC 
/DSC 

/ERR 0 PTS 



/LINC 
/DSC 

/ERR BUF FULL 



/OSC 

/ERR FREQ 



/OSC 

/ERR DEV 



/LINC 
/OSC 

/READ TBLK 
/UNIT - 



/IGNORE KBRO 
/DURING WRITE 
/-NUM TO DO 



4372 








LHODE 




4373 


0404 


4332 




SIC FREE 




4374 


0405 


0074 




SET I ANSPTR 


/PUT TBLK 


4375 


0406 


0723 




TXT6+3 


/NUM (3 DIGITS) 


4376 


0407 


2332 




ADD FREE 


/IN QANDA TEXT 


4377 


0410 


0306 




ROR 6 


/AT TXT6*3i 


4400 


0411 


1560 




ecu I 


/TXT6'^4, 


4401 


0 412 


7770 




7770 


/AND TXT6*5 


4402 


0413 


2513 




ADD PL60 




4403 


0414 


1374 




STH I ANSPTR 




4404 


0415 


1000 




LDA 




4405 


0416 


0332 




FREE 




4406 


0417 


0303 




ROR 3 




4407 


0420 


1560 




BCL I 




4410 


0421 


7770 




7770 




4411 


0422 


2513 




ADD PL60 




4412 


0423 


1374 




STH I ANSPTR 




4413 


0424 


1000 




LDA 




4414 


0425 


0332 




FREE 




4415 


0426 


1560 




BCL I 




4416 


0427 


7770 




7770 




4417 


0430 


2513 




ADD PL60 




4420 


0431 


1374 




STH I ANSPTR 




4421 


0432 


0643 




LDF 3 


/EXP NAME 


4422 


0433 


7013 




JMP QAINIT 




4423 


0434 


0672 




TXT4 




4424 


0435 


2005 




ANS442000 




4425 


0436 


7066 




JMP OARFSH 




4426 


0437 


1020 




LDA I 


/PATCH SPACE 


4427 


0440 


0040 




40 


/AROUND NAME 


4430 


0441 


1340 




STH 


/FOR MAGSPY 


4431 


0442 


2005 




ANS4+2000 




4432 


0443 


7013 




JMP QAINIT 


/DSC 


4433 


0444 


0720 




JXJ6 


/WRITE — • 


4434 


0445 


0524 




ANSWER 


/TBLKS 


4435 


0446 


7066 




JMP QARFSH 


/IST TBLK 


4436 


0447 


0074 




SET I ANSPTR 


/UNIT - 


4437 


0450 


0524 




ANSWER 




4440 


0451 


0002 




PDF 




4441 








RHODE 




4442 


4452 


5653 




JMP I .*! 




4443 


4453 


1746 




OOWRC 




4444 








LMODE 




4445 


0454 


7013 


LOAD* 


JMP QAINIT 


/DSC 


4446 


0455 


0747 




TXT7 


/LOAD 


4447 


0456 


0524 




ANSWER 


/UNIT • 


4450 


0457 


7066 




JMP QARFSH 




4451 


0460 


1300 




LDH 




4452 


0461 


4524 




ANSWER*HBIT 




4453 


0462 


0470 




A2E I 




4454 


0463 


6454 




JMP LOAD 




4455 


0464 


0600 




LIF 0 




4456 


0465 


7525 




JMP KLOAO 




4457 


0466 


0000 


DIGCHK, 


0 


/CHK NUMERIC 


4460 


0467 


6141 




6141 


/INPUT 


4461 


0470 


1334 


DLQOP, 


LDH I ANSPTR 


/FROM QA FLO 


4462 


0471 


1420 




SHD 1 




4463 


0472 


7400 




QAEOLl 




4464 


0473 


6517 




JMP EOLXIT-QAFLD 


4465 


0474 


0470 




A2E I 


/BLANK INPUT ? 


4466 


0475 


6470 




JMP DLOOP 


/YES IGNORE 


4467 


0476 


1420 




SHD I 




4470 


0477 


3400 




QAEOMl 





4471 


0500 


6517 




JMP EOLXIT-QAFLD 


4472 


0501 


1120 




ADA I 


4473 


0502 


7720 




-57 


4474 


0503 


0451 




APO /OIGIT ? 


4475 


0504 


6522 




JMP ERRXIT-QAFLD/NO ILLEGAL 


4476 








/INPUT 


4477 


0505 


1120 




ADA I 


4500 


0506 


7765 


UPLIM, 


•12 /«10 OR «12 


4501 


0507 


0471 




APO I /DIGIT ? 


4502 


0510 


6522 




JMP ERRXIT-QAFLD 


4503 


0511 


1314 




LOH ANSPTR 


4504 


0512 


1560 




8CL I /PUT DIGIT 


4505 


0513 


0060 


PL60, 


60 /IN AC 


4506 


0514 


0002 




POP 


4507 








RHODE 


4510 


4515 


2266 




ISiZ OIGCHK /P4«3 IS NORMAL 


4511 


4516 


7410 




SKP 


4512 


4517 


0002 


EOLXITi 


2 /POP 


4513 


4520 


2266 




ISZ DIGCHK /P*2 IS EOL 


4514 


4521 


7410 




SKP 


4^15 


452^ 


0002 


ERRXIT, 


2 /P*l IS ERR 


4516 


4523 


5666 




JHP I DIGCHK /RTN 


4517 








LMODE 


45^0 


05^:4 




ANSWER, 


0 


4::)21 


(b525 


0000 




0 


4:?22 


16 p2 6 






0 




0527 






0 




ji53i6 


i^002 






4^25 


fc53i 






0 


4:>2o 


i^532 


0000 




0 


4:><:7 


k>533 


0000 




0 


4:?v>ii; 


VS534 






0 


4::>ol 


i6:>3P 


0620 






4^01 




0122 










^iip 










0:>24 






4:?^51 




0P22 






4:>3l 




4011 






4::>31 


^:>^^ 


1620 






4:^31 






TXTl, 


TEXT ?FPARAMETER INPUT 


4i)v32 




2;P24 










4306 










ic.4i7 






4:>o2 






F00<1 




4:>^o 




74oi 






4:^3.; 




4v)06 








it/p :>! 












1 11 






4 :>oo 










4 J>0v: 


/^:>p4 


^iOc:4 






^ C 0 




0120 






4 Ji'w si 






Fl LING 


TAPE 






«.043 






4^*0 ' 


i 


*i/Q02 






4 ::>o ~ 




4^13 






4 • 










s w~ 


16 P 5 








4:>c- 


i6:?6o 


0I22 






4 J^O-^ 


«:.:>i>4 


^434 






4;>o*^ 






F2 KEYBOAROX? 


4pw-. 


> 0 








4 :>o^ 




1623 










2422 







TXT2, TEXT ?FINSTRUMENT XY IS<1 

4 :>o6 

4i>37 ,66UU <fi(^^k> 

4::>o7 ;>:606 7!pi<:}i 

4::>o7 /)604 

4po7 )^62;t? 1417 

4::>o7 Z62)6 k:i7p4 

4::»o/ ^^52)7 4iiJ6<£ 

4:>o7 Itl'i^ 7:?t'Z> 
4^v>7 

^oo'/ ttlZ 17k:/4 

4::»o/ IzX^ iJ^k>4 

^-o7 <lsANALOGi 2»ENC00ED) 

4^^^L Z61^ :>143 

:^ w V - u 0 0 

4^^u> t;6i<> (i4i£>i 

4 -t »y 6 1 7 !fi. <: 4 

4 4 lir o c 1 7 4 iu 

^O'-^ij iL^OiiJ 1116 

4:;>'7^ i^^jc-^ «i4 7:^ 

4:^^^ FSTARTING P0INTr<5 



4i?4i iL/OiiO 4Jk:/6 

4b41 i66<£7 ^:4i7 

4!?41 't.*^^! 

4!j41 0631 1440 

4541 1^632 21317 

4^41 tS633 1116 

4:?41 0634 2423 

4!?41 16635 7574 



^i>41 FTOTAL P01NTS5<5 

4542 0636 6543 

4542 0637 0623 

4542 064b^ 0115 

4542 ^641 2014 

4:p42 0642 1116 

4::>42 0643 0 740 

4^42 .6644 0622 

4:>42 0645 0521 

4dv2 0647 6234 

^-^'^ FSAHPLING FREQ8<2\? 

HZ^'-tb 0650 0604 

4::>4^ 06;>1 1774 

^^^0 TXT3, TEXT ?F00<1 

4v^4 06p£i 6143 

45':-.- 06pvi *i^66l 

4:?4^ .6o:?4 4015 

4:>^4 ^65:p 172^1 

4^4^ 00:^6 tt'540 

4::>44 itof liio 





160 OU 


6:3^4 




16661 






i666ki 




45?44 


0663 


lo24 


4544 






4545 


0664 


2343 


4545 


0665 


0662 


4545 


0666 


4023 


4545 


0667 


2401 


4545 


0670 


2224 


4545 


0671 


3400 


4545 






4546 


0672 


0605 


4546 


0673 


3020 


4546 


0674 


0522 


4546 


0675 


1115 


4546 


0676 


0516 


4546 


0677 


2440 


4546 


0700 


1601 


4546 






4547 


0701 


1505 


4547 


0702 


4306 


4547 


0703 


7470 


4547 


0704 


3400 


4547 






4550 


0705 


0622 


4550 


0706 


0501 


4550 


0707 


0440 


4550 


0710 


2402 


4550 


0711 


1413 


4550 






4551 


0712 


7463 


4551 


0713 


4306 


4551 


0714 


2516 


4551 


0715 


1124 


4551 


0716 


7461 


4551 


0717 


3400 


4551 






4552 


0720 


0627 


4552 


0721 


2211 


4552 


0722 


2405 


4552 


0723 


4030 


4552 


0724 


3132 


4552 


0725 


4050 


4552 


0726 


1703 


4552 


0727 


2451 


4552 


0730 


4024 


4552 


0731 


0214 


4552 






4553 


0732 


13-23 


4553 


0733 


4306 


4553 


0734 


0611 


4553 


0735 


2223 


4553 


0736 


2440 


4553 


0737 


2402 


4553 


0740 


1413 


4553 


0741 


7574 


4553 






4554 


0742 


6343 


4554 


0743 


0625 


4554 


0744 


1611 


4554 


0745 


2474 


4554 


0746 


6134 



Fl MORE INSTRUMENTS 



F2 STARTS? 



TXT4, TEXT 7FEXPERIMENT NAME 



F<8\? 



TXT5, 



TEXT 7FREA0 TBl.K<3 



FUN1T<1\? 



TXT6, 



TEXT 7FWRITE XYi (OCT) TBLKS 



FFIRST TBLK«<3 



4554 






FUNIT<1\? 


4555 


0747 


0614 




4555 


0750 


1701 




4555 


0751 


0474 




4555 






TXT7, TEXT ?FL0AD<8 


4556 


0752 


7043 




45 56 


0753 


0625 




4 55 6 


0754 


1611 




4556 


0755 


2474 




4556 


0756 


6134 




4556 






rUNIT<l\? 


4557 


0757 


0605 




4557 


0760 


2222 




4557 


0761 


4060 




4557 


0762 


4020 




4557 


0763 


2423 




4557 


0764 


3400 




4557 






TXT10, TEXT ?FERR 0 PTS\? 


4560 


0765 


0605 




4560 


0766 


2222 




4560 


0767 


4002 




4560 


0770 


2506 




4560 


0771 


4006 




4560 


0772 


2514 




4560 


0773 


1434 




4560 






TXTll, TEXT ?FERR BUF FULLN? 


4561 


0774 


0605 




4561 


0775 


2222 




4561 


0776 


4006 




4561 


0777 


2205 




4561 


1000 


2134 




4561 






TXT12, TEXT ?FERR FREQ\? 


4562 


1001 


0605 




4562 


1002 


2222 




4562 


1003 


4011 




4562 


1004 


1623 




4562 


1005 


2434 




4562 






TXT13, TEXT ?FERR INSTS? 


4563 


1006 


0605 




4563 


1007 


2222 




4563 


1010 


4005 




4563 


1011 


1603 




4563 


1012 


3400 




4563 






TXT14, TEXT ?FERR ENC\? 


4564 






NOLIST 


5530 


1701 


0000 


AAAS2» 0 


5531 






SEGMNT 3 


5532 






^1 


5533 


0001 


4040 


FIRST, 4040 /SPACE FmT 


5534 


0002 


4040 


4040 /AROUND NAME 


5535 


0003 


4040 


4040 /FOR MAGSPY 


5536 


0004 


4040 


4040 


5537 


0005 


0000 


ANS4, 0 /EXPERIMENT 


5540 


0006 


0000 


0 /NAME 


5541 


0007 


0000 


0 


5542 


0010 


0000 


0 


5543 


0011 


0000 


0 


5544 


0012 


4040 


4040 


5545 


0013 


4040 


4040 


5546 


0014 


4040 


4040 


5547 


0015 


4040 


4040 


5550 






PMODE 


5S>51 






/INITIALISATION TABLE FILLED BY 



5t?52 






/SETUP 


AND 








/17 VALUES 


5554 


6016 


0001 


INISTR# 


1 


5555 


6017 


0002 




2 


5556 


6020 


0003 




3 


5557 


6021 


0004 




4 


5560 


6022 


0005 




5 


!?56i 


6023 


0006 




6 


5562 


6024 


0007 




7 


5563 


6025 


0010 




8 


5564 


6026 


0011 




9 


5565 


6027 


0010 




10 


5566 


6030 


0011 




11 


5567 


6031 


0012 




12 

tfc Sat 


5570 


6032 


0013 




13 


5571 


6033 


0014 




14 


5572 


6034 


0015 




15 


5573 


6035 


0016 




16 


5574 


6036 


0017 


4 'It k 11 W f 


17 


5575 


6 03 7 


0001 




1 


5576 


6040 


0002 




2 


5577 


6041 


0003 




3 


5600 


6042 


0004 




4 


5601 


6043 


0005 




5 


5602 


6044 


0006 




6 


5603 


6045 


0007 




7 


5604 


6046 


0010 




8 


5605 


6047 


0011 




9 


5606 


6050 


0010 




10 


5607 


6051 


0011 




11 


5610 


6052 


0012 




12 


5611 


6053 


0013 




13 


5612 


6054 


0014 




14 


5613 


6055 


0015 




15 


5614 


6056 


0016 




16 


5615 


6057 


0017 




17 


5616 


6060 


0001 




1 


5617 


6061 


0002 




2 


5620 


6062 


0003 




3 


5621 


6063 


0004 




4 


5622 


6064 


0005 




5 


5623 


6065 


0006 




6 


5624 


6066 


0007 




7 


5625 


6067 


0010 




8 


5626 


6070 


0011 




9 


5627 


6071 


0010 




10 


5630 


6072 


0011 




11 


5631 


6073 


0012 




12 


5632 


6074 


0013 




13 


5633 


6075 


0014 




14 


5634 


6076 


0015 




15 


5635 


6077 


0016 




16 


5636 


6100 


0017 




17 
lit f 


5637 


6101 


0001 




1 


5640 


6102 


0002 




2 


5641 


6103 


0003 




3 


5642 


6104 


0004 




4 


5643 


6105 


0005 




5 


5644 


6106 


0006 




6 


5645 


6107 


0007 




7 


5646 


6110 


0010 




8 


5647 


6111 


0011 




9 


5650 


6112 


0010 




10 



4 DEVICES 
/SA LO 
/SA HI 
/-SA LO 
/-SA HI 
/SELECT WORD 
/X COORD IS 
/10S 
/100S 
/1000S 
/10000S 

/-SA LO NXT DV 
/-SA HI NXT DV 
/-(EA LO,EA HI) 
/ 

/-SAM FREQ 
/-SAM FREQ 
/-SAM FREQ 
/DEVICE 1 



/DEVICE 2 



/DEVICE 3 



5651 


6113 


0011 




11 


5652 


6114 


0012 




12 


5653 


6115 


0013 




13 


5654 


6116 


0014 




14 


5655 


6117 


0015 




15 


5656 


6120 


0016 




16 


5 6 D 1 


6121 


0017 




17 


5 66 0 


6122 


0 001 




1 


5661 


6123 


0002 




2 


5662 


6124 


0003 




3 


5663 


6125 


0004 




4 


5664 


6126 


0005 




5 


5665 


6127 


0006 




6 


5666 


6130 


0007 




7 


5667 


6131 


0010 




6 


5670 


6132 


0011 




9 


5671 


6133 


0010 




10 


5672 


6134 


0011 




11 


5673 


6135 


0012 




12 


5674 


6136 


0013 




13 


5675 


6137 


0014 




14 


5676 


6140 


0015 




15 




6141 


0016 




16 


5im 


6142 


0017 




17 


5701 


6143 


0000 


8LKCNT 


1 0 


5702 


6144 


0000 


LAST, 


0 


5703 






/TABLE 


OF AODR T 


5704 






/INIT 


VALS GO 


5705 


6145 


6272 


INIAD. 


TISTR0 


5706 


6146 


6273 




TISTR0+1 


5707 


6147 


6443 




LIMVL0 


5710 


6150 


6444 




LIHVL0*! 


5711 


6151 


6274 




TISTR0+2 


5712 


6152 


6471 




8CO0 


5713 


6153 


6472 




BCO0+1 


5714 


6154 


6473 




BCD0+2 


5715 


6155 


6474 




8CD0*3 


5716 


6156 


6475 




BCD0*4 


5717 


6157 


6447 




LIMVLl 


5720 


6160 


6450 




LIMVLl*! 


5721 


6161 


0314 




ELOOV0 


5722 


6162 


0315 




EHIDV0 


5723 


6163 


6275 




TISTR0*3 


5724 


6164 


6276 




TISTR0*4 


5725 


6165 


6445 




LIMVL0*2 


5726 


6166 


6277 




TISTRl 


5727 


6167 


6300 




TISTRl^l 


5730 


6170 


6447 




LIMVLl 


5731 


6171 


6450 




LIMVUI*! 


5732 


6172 


6301 




TISTRl+2 


5733 


6173 


6476 




BCOl 


5734 


6174 


6477 




8CD1+1 


5735 


6175 


6500 




BCD1*2 


5736 


6176 


6501 




BCDl+3 


5737 


6177 


6502 




BCD1*4 


5740 


6200 


6453 




LIMVL2 


5741 


6201 


6454 




LIHVL2*! 


5742 


6202 


0336 




ELOOVl 


5743 


6203 


0337 




EHIOVl 


5744 


6204 


6 3 02 




TISTR1*3 


5745 


6205 


6303 




TISTR1*4 


5746 


6206 


6451 




LIMVL1*2 


5747 


6207 


6304 




TISTR2 



/DEVICE 4 



THAT TELL WHERE 

/DEVICE 0 



/DEVICE 1 



/DEVICE 2 



5750 


6210 


6305 




TISTR2*1 




57^1 


6211 


6453 




IIHVL2 




5752 


6212 


6454 




LIMVL2*! 




5753 


6213 


6306 




TISTR2*2 




5754 


6214 


6503 




8C02 




5755 


6215 


6504 




8C02*1 




5756 


6216 


6505 




8C02*2 




3157 


6217 


6506 




BCD2*3 




5760 


6220 


6507 




8CD2+4 




5761 


6221 


6457 




LIHVL3 




5762 


6222 


6460 




LiMVL3*l 




5763 


6223 


0415 




EL00V2 




5764 


6224 


0416 




EHI0V2 




5765 


6225 


6307 




TISTR2*3 




51tt 


6226 


6310 




TISTR2*4 




3767 


6227 


6455 




LIMVL2+2 




5770 


6230 


6311 




TISTR3 


/DEVICE 3 


5771 


6231 


6312 




TISTR3«1 




5772 


6232 


6457 




LIMVL3 




5773 


6233 


6460 




t IMVL3^1 




5774 


6234 


6313 




TISTR3*2 




5775 


6235 


6510 




8CD3 




5776 


6236 


6511 




8CD3*1 




5777 


6237 


6512 




BC03+2 




6000 


6240 


6513 




8CD3+3 




6001 


6241 


6514 




8CD3+4 




6002 


6242 


6463 




LIMVL4 




6003 


6243 


6464 




LIMVL4H 




6004 


6244 


0440 




EL0DV3 




6005 


6245 


0441 




EHIDV3 




6006 


6246 


6314 




TISTR3*3 




6007 


6247 


6315 




TISTR3+4 




6010 


6250 


6461 




LIMVL3*2 




6011 


62!?1 


6316 




TISTR4 


/DEVICE 4 


6012 


6252 


6317 




TISTR4*! 




6013 


6253 


6463 




LIMVL4 




6014 


6254 


6464 




LIMVL4*! 




6015 


6255 


6320 




TISTR4+2 




6016 


6256 


6515 




BCD4 




6017 


6257 


6516 




8CD4+1 




6020 


6260 


6517 




BCD4*2 




6021 


6261 


6520 




BCD4«3 




6022 


6262 


6521 




BC04*4 




6023 


6263 


6467 




LIMVL5 




6024 


6264 


6470 




LIMVL5*! 




6025 


6265 


0463 




EL00V4 




6026 


6266 


0464 




EHIDV4 




6027 


6267 


6321 




TISTR4+3 




6030 


6270 


6322 




TISTR4+4 




60s51 


6271 


6465 




LIMVL4*2 




6032 






/TABLE 


OF VALUES FOR 


GO ROUTS 


6033 






/5 PER 


DEVICE 




6034 


6272 


0001 


TISTR0I 


1 


/SAUO 


6035 


6273 


0002 




2 


/SAHI 


6036 


6274 


0003 




3 


/SELECT WD 


6037 


6275 


0004 




4 


/^SAM FREQ 


6040 


6276 


0005 




5 


/-SAH FREQ 


6041 


6277 


0001 


TISTRl, 


1 


/OVl 


6042 


6300 


0002 




2 


6043 


6301 


0003 




3 




6044 


6302 


0004 




4 




6045 


6303 


0005 




5 




6046 


6304 


0001 


TISTR2, 


1 


/DV2 



6047 


6305 


0002 




2 


6 05 0 


6 30 6 


0 00 3 




3 


6051 


6307 


/0004 




4 


6052 


6310 


0005 




5 


6053 


6311 


0001 


TISTR3i 


1 


6054 


6312 


0002 




2 


6055 


6313 


0003 




3 


6056 


6314 


0004 




4 


6057 


6315 


0005 




5 


6060 


6316 


0001 


TISTR4, 


1 


6061 


6317 


0002 




2 


6062 


6320 


0003 




3 


6063 


6321 


0004 




4 


6064 


6322 


0005 




5 


6065 






/TABLE 


OF ADDR 


6066 






/6 PER 


DEV I CE 


6067 


6323 


0312 


TI AD0I 


LODV0 


6070 


63^4 


0311 




HIDV0 


6071 


6325 


0066 




SELOV0 


6072 


6326 


0307 




SFDV0 


6073 


6327 


0310 




KSFDV0 


6074 


6330 


0313 




OSDV0 


6075 


6331 


0334 


TI AOl* 


LOOVl 


6076 


6332 


0333 




HIDVl 


6077 


6333 


0067 




SELDVl 


6100 


6334 


0331 




SFDVl 


6101 


6335 


0332 




KSFQVi 


6102 


6336 


0335 




OSDVl 


6103 


6337 


0413 


TI A02j 


L0DV2 


6104 


6340 


0412 




HIDV2 


6105 


6341 


0070 




SELDV2 


6106 


6342 


0410 




SF0V2 


6107 


6343 


0411 




KSrDV2 


6110 


6344 


0414 




0S0V2 


6111 


6345 


0436 


TIA03, 


L0DV3 


6112 


6346 


0435 




HIDV3 


6113 


63 4 7 


0071 




SEL0V3 


6114 


6350 


0433 




SFDV3 


6115 


6351 


0434 




KSF0V3 


6116 


6352 


0437 




0SDV3 


611/ 


6353 


0461 


TI AD4, 


L0DV4 


6120 


6354 


0460 




HI0V4 


6121 


6355 


0072 




SELDV4 


6122 


6356 


0456 




SFDV4 


6123 


6357 


0457 




KSFDV4 


6124 


6360 


0462 




0SDV4 


6125 






/ADDR OF START 


6126 






/FOR GO 


ROUTS 


6127 


6361 


6272 


VALTAB, 


TISTR0 


6130 


6362 


6277 




TISTRl 


6131 


6363 


6304 




TISTR2 


6132 


6364 


6311 




TISTR3 


6133 


6365 


6316 




TI STR4 


6134 


6366 


6323 


ADRTABi 


TI AD0 


6135 


6367 


6331 




TI AOl 


6136 


6 37 0 


6337 




TIAD2 


6137 


6371 


6345 




TI AD3 


6140 


6372 


6353 




TIA04 


6141 






/TTY QUE HOLDS 


6142 


6373 


0001 


STRQUEi 


1 


6143 


6374 


0002 




2 


6144 


6375 


0003 




3 


6145 


6376 


0004 




4 



/DV3 



6146 


6377 


0005 




5 




6X47 


6400 


0006 




6 




6150 


6401 


0007 




7 




6151 


6402 


0010 




3 




6152 


6403 


0011 




9 




6153 


6404 


0010 




10 




6154 


6405 


0011 




11 




6155 


6406 


0012 




12 




6156 


6407 


0013 




13 




6157 


6410 


0014 




14 




6160 


6411 


0015 




15 




6161 


6412 


0016 




16 




6162 


6413 


0017 




17 




6163 


6414 


0020 




18 




6164 


6415 


0021 




19 




6165 


6416 


0020 


ENOQUE, 


20 




6166 






/TABLES 


FOR SCOPE 


ROUTINES 


6167 










/POWERS OF TEN 


6170 










/FOR OCTAL TO 


6171 










/DECIMAL 


6172 










/CONVERSION 


6173 


6417 


7747 


RADVAL, 


7747 


/«100# 000 


6174 


6420 


4540 




4540 




6175 


6421 


7775 




7775 


/•10#000 


6176 


6422 


4360 




4360 




6177 


6423 


1111 




7777 


/•I, 000 


6200 


6424 


6030 




6030 


6201 


6425 


1111 




7777 


/•100 


6202 


6426 


7634 




«rl44 


6203 


6427 


1111 




7777 


/•10 


6204 


6430 


11 tt 




-12 




6205 


6431 


7634 




-144 


/»100 


6206 


6432 


0144 




*144 


/*100 


6207 


6433 


1166 




-12 


/»10 


6210 


6434 


0012 




*12 


/*10 


6211 










/HOLDS BCD VAL 


6212 










/OF X COORD 


6213 


6435 


0000 


BCDVALi 


0 


/100K 


6214 


6436 


0000 




0 


/10K 


6215 


6437 


0000 




0 


/IK 


6216 


6440 


0000 




0 


/100S 


6217 


6441 


0000 




0 


/10S 


6220 


6442 


0000 




0 


/UNITS 


6221 










/DEVICE INFO 


6222 










/TABLE FOR 


6223 










/XYGET SETUP 


6224 










/AT QANOA STAGE 


6225 


6443 


0000 


LIMVL0I 


0 


/«ST ADDR DV0 


6226 


6444 


0000 




0 


/LO, HI 


6227 


6445 


0000 




0 


/a SAM FREQ DV0 


6230 


6446 


6471 




BCO0 


/ADOR OF BCD 


6231 










/VAL FOR DEV 0 


6232 


6447 


0000 


LIMVUi 


0 


/DVl ARCS 


6233 


6450 


0000 




0 


6234 


6451 


0000 




0 




6235 


6452 


6476 




BCD! 




6236 


6453 


0000 


LIMVL2, 


0 


/DV2 ARCS 


6237 


6454 


0000 




0 


6240 


6455 


0000 




0 




6241 


6456 


6503 




8C02 




6242 


6457 


mm 


LIMVL3, 


0 


/DV3 ARGS 


6243 


6460 


mm 




0 


6244 


6461 


mm 




0 





6245 


64 62x 


6510 




BCD3 




6246 


6463 


^-,0000 


LIMVL4, 


0 


/DV4 ARCS 


6247 


6464 


0000 




0 




6250 


6465 


0000 




0 




6251 


6466 


6515 




8C04 




6252 


6467 


0000 


LIMVL5, 


0 


/IST UNUSED 


6253 


6470 


0000 




0 


/BUFFER CORE 


62b4 










/LOG COMES 


6 5 5 










/RIGHT AFT LAST 


6256 










/USER DEFINED 


6257 










/DEVICE 


6260 


6471 


0000 


BCD0# 


0 


/HOLDS USER 


6261 


6472 


0000 




0 


/DEFINED INIT 


6262 


6473 


^000 




0 


/X VALUE 


6263 


6474 


0000 




0 


/5 DIGITS 


6264 


6475 


0000 




0 


/I EACH DV 


6265 


6476 


0000 


BCOl » 


0 


/UNITS 


6266 


6477 


0000 




0 


/TENS 


6267 


6500 


0000 




0 


/HUNDREDS 


6270 


6501 


0000 




0 


/THOUSANDS 


6271 


6502 


0000 




0 


/10 THOUS 


6272 


6503 


0000 


BCQ2i 


0 




6273 


6504 


0000 




0 




6274 


6505 


0000 




0 




6275 


6506 


0000 




0 




6276 


6507 


0000 




0 




6277 


6510 


0000 


BC03« 


0 




6300 


6511 


0000 




0 




6301 


6512 


0000 




0 




6302 


6513 


0000 




0 




6303 


6514 


0000 




0 




6304 


6515 


0000 


BCD4, 


0 




6305 


6516 


0000 




0 




6306 


6517 


0000 




0 




6307 


6520 


0000 




0 




6310 


6521 


0000 




0 




6311 


6522 


6567 


NUM0 , 


MS0 


/NUM TAGS 


6312 


6523 


6573 


NUHl, 


MSI 


/MUST BE 


6313 


6524 


6577 


NUM2, 


MS2 


/CONTIGUOUS 


6314 


6525 


6603 


NUM3, 


MS3 




6315 


6526 


6607 


NUM4 , 


MS4 




6316 






/TISA MESSAGES 




6317 


6527 


0310 


MSHLTi 


310 


/H 


6320 


6530 


0301 




301 


/A 


6321 


6531 


0314 




314 


/L 


6322 


6532 


0324 




324 


/T 


6323 


6533 


0240 




240 


/SPACE 


6324 


6534 


0311 




311 


/I 


6325 


6535 


0316 




316 


/N 


6326 


6536 


0323 




323 


/S 


6327 


6537 


0324 




324 


/T 


6330 


6540 


0322 




322 


/R 


6331 


6541 


0325 




325 


/U 


6332 


6542 


0315 




315 


/M 


6333 


6543 


0305 




305 


/E 


6334 


654 4 


0316 




316 


/N 


6335 


6545 


0324 




324 


/T 


6336 


6546 


0240 




240 


/SPACE 


6337 


65 47 


0000 




0 


/EOM 


6340 


6550 


0307 


MSGO, 


307 


/G 


6341 


6551 


0317 




317 


/O 


6342 


6552 


0240 




240 


/SPACE 


6343 


6553 


0311 




311 


/I 



6344 


6554 


0316 




316 


/N 


6345 


6555 


i5323 




323 


/S 


6346 


6556 


0324 




324 


/T 


6347 


6557 


0322 




322 


/R 


6350 


6560 


0325 




325 


/U 


6351 


6561 


0315 




315 


/M 


6352 


6562 


0305 




305 


/E 


6353 


6563 


0316 




316 


/N 


6354 


6564 


0324 




32 4 


n 


6355 


6565 


0240 




240 


/SPACE 


6356 


6566 


0000 




0 


/EDM 


6357 


6567 


0260 




260 




6360 


6570 


0215 




215 




6361 


6571 


0212 




212 




6362 


6572 


0000 




0 




6363 


6573 


0261 


HSli 


261 




6364 


6574 


0215 




215 




6365 


6575 


0212 




212 




6366 


6576 


0000 




0 




6367 


6577 


0262 


MS2# 


262 




6370 


6600 


0215 




215 




6371 


6601 


0212 




212 




6372 


6602 


0000 




0 




6373 


6603 


0263 


MS3, 


263 




6374 


6604 


0215 




215 




6375 


6605 


0212 




212 




6376 


6606 


0000 




0 




6377 


6607 


0264 


MS4, 


264 




6400 


6610 


0215 




215 




6401 


6611 


0212 




212 




6402 


6612 


mm 




0 




6403 


6613 


0315 


MSMOT, 


315 


/M 


6404 


6614 


0317 




317 


/O 


6405 


6615 


0324 




324 


/T 


6406 


6616 


0311 




311 


n 


6407 


6617 


0317 




317 


/o 


6410 


6620 


0316 




316 


/N 


6411 


6621 


0215 




215 


/CR 


6412 


6622 


0212 




212 


/LF 


6413 


6623 


0000 




0 


/EOM 


6414 


6624 


0306 


HSFR, 


306 


/F 


6415 


6625 


0322 




322 


/R 


6416 


6626 


0305 




305 


/E 


6417 


6627 


0305 




305 


/E 


6420 


6630 


0332 




332 


/Z 


6421 


6631 


0305 




305 


/E 


6422 


6632 


0215 




215 




6423 


6633 


0212 




212 




6424 


6634 


0000 




0 




6425 


6635 


0316 


MSNORn 


316 


/N 


6426 


6636 


0317 




317 


/O 


6427 


6637 


0322 




322 


/R 


6430 


6640 


0315 




315 


/M 


6431 


6641 


0301 




301 


/A 


6432 


6642 


0314 




314 


/L 


6433 


6643 


0215 




215 




6434 


6644 


0212 




212 




6435 


6645 


0000 




0 




6436 


6646 


0311 


MSINV, 


311 


/I 


6437 


6647 


0316 




316 


/N 


6440 


6650 


0326 




326 


/V 


6441 


6651 


0305 




305 


/E 


6442 


6652 


0322 




322 


/R 



6443 


6653 


0324 




32 4 


/T 


6 44 4 


6654 


0305 




305 


/E 


6445 


6655 


0304 




304 


/O 


6446 


6656 


0215 




215 




6447 


6657 


0212 




212 




6450 


6660 


0000 




0 




6451 


6661 


0320 


ALLHLT, 


320 


/P 


6452 


6662 


0301 




301 


/A 


6453 


6663 


0325 




325 


/U 


6454 


6664 


0323 




323 


/s 


6455 


6665 


0305 




305 


/E 


6456 


6666 


0240 




240 


/SP 


6457 


6667 


0315 




315 


/M 


6460 


6670 


0317 




317 


/O 


6461 . 


6671 


0304 




304 


/D 


6462 


6672 


0305 




305 


/E 


6463 


6673 


0215 




215 




6464 


6674 


0212 




212 




6465 


6675 


0000 




0 




6466 


6676 


0310 


MSBUSY, 


310 


/H 


6467 


6677 


0301 




301 


/A 


6470 


6700 


0316 




316 


/N 


6471 


6701 


0304 




304 


/D 


6472 


6702 


0323 




323 


/S 


6473 


6703 


0240 




240 




6474 


6704 


0317 




317 


/o 


6475 


6705 


0306 




306 


/r 


6476 


6706 


0306 




306 


/F 


6477 


6707 


0215 




215 




6500 


6710 


0212 




212 




6501 


6711 


0000 




0 




6502 


6712 


0301 


MSAD, 


301 


/A 


6503 


6713 


0257 




257 


// 


6504 


6714 


0304 




304 


/D 


6505 


6715 


0240 




240 




6506 


6716 


0315 




315 


/M 


6507 


6717 


0317 




317 


/o 


6510 


6720 


0304 




304 


/D 


6511 


6721 


0305 




305 


/E 


6512 


6722 


0215 




215 




6513 


6723 


0212 




212 




6514 


6724 


0000 




0 




6515 


6725 


0000 


AAAS3, 


0 




6516 








LMODE 




6517 








<»1000 




6520 


1000 


0004 


P4, 


4 





6521 
6522 
6523 
6524 
6525 
6526 
6527 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6540 
6541 



1001 
1002 
1003 
1004 

1005 
1006 
1007 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 



0640 
1020 
0640 
1040 
2000 
1040 
1013 
3000 
1040 
1013 
0000 
1040 
2000 
1000 
2000 



MEMCNK, 



LOOPi 



LOF 0 
IDA I 

LOF 0 

STA 

2000 

STA 

NLOF 

ADO P4 

STA 

NLDF 

0 

STA 
2000 
LOA 
2000 



/FIND OUT HOW 
/MUCH EXT HEM 
/PUT ANYTHING 
/EXCEPT LOF K 
/IN LDF 0 



/SET LDF 

/INST 

/PUT LDF K 
/K«4,10i .•,•34 
/IN LOC NLOF 

/PUT LDF K 
/IN LDF K 
/GET IT 
/BACK 



6b42 


1020 


1440 


SAE 


/DID WE 


6543 


1021 


1013 


NLDF 


/MAKE IT ? 


6544 


1022 


7035 


JMP DUN 


/NO 


6545 


1023 


0640 


LOT 0 


/CHK FOR 


6546 


1024 


1440 


SAE 


/CONTROL LOGIC 


6547 


1025 


2000 


2000 


/ONLY 


6550 


1026 


0467 


SKP 


/STILL OK 


6551 


1027 


7035 


JMP DUN 


/4K ONLY 


6552 


1030 


1460 


SAE I 


/CHK FOR 


6553 


1031 


0674 


lOF 34 


/MAX CORE 


6554 


1032 


7010 


JMP LOOP 


/DO SOME MORE 


6555 


1033 


3000 


ADO P4 


/WE HAVE 32K 


6556 


1034 


5013 


STC NLOF 




6557 


1035 


1000 


OUNi LOA 


/PUT FIRST NON 


6560 


1036 


1013 


NLDF 


/EX ! STAN T L DF 


6561 








/IN AC 


6562 


1037 


1120 


ADA I 




6563 


1040 


7137 


-640 




6564 


1041 


0302 


ROR 2 


/wlST NON CDr 


6565 


1042 


1120 


ADA I 




6566 


1043 


7776 


•1 




6567 


1044 


0470 


A2E I 




6570 


1045 


0011 


CLR 




6571 


1046 


0002 


POP 




6572 






PMOOE 




6573 


7047 


6201 


CDF 0 




6574 


7050 


3032 


DCA M AXCDF 




6575 


7051 


1255 


TAD P4040 




6576 


7052 


3656 


DCA ! K6K 


/FIXUP 6000 


6577 


7053 


5654 


JMP I ,*1 




6600 


7054 


4023 


SETUP 




6601 


7055 


4040 


P4040, 4040 




6602 


7056 


6000 


K6K, 6000 




6603 






/DEFINITIONS FOR INPUT 


ROUTINES 


6604 






ADRM INS7000 


/IST BUF ADOR 


6605 






CDFMIN«0 




6606 






DRPHAXS20 


/MAX X AX DROP 


6607 






WRMBLK»4000 


/IST MBLK FOR 


6610 








/WR I TE 


6611 






F I RLDF^643 


/IST BUF LDF 


6612 






RDH8LK®6000 


/IST MBLK FOR 


6613 








/READ 


6614 






/ANALOG ASSIGNMENTS FOR 


DE VI CES 


6615 






/X AXIS 




6616 






XAXDV0»10 




6617 






XAXOVloX AXOV0*! 




6620 






XAXDV20XAXDV1+1 




6621 






XAXDV38XAXDV2+1 




6622 






XAXOV4s20 




6623 






/Y AXIS 




6624 






YAXOV0"14 




6625 






YAXDV1«YAXDV0+1 




6626 






YAXDV2»YAX0V1*1 




6627 






YAXDV38YAXDV2*! 




6630 






YAX0V4 »2 4 




6631 






/DEFINITIONS FOR SCOPE 1 


ROUT I NES 


66 32 






CHGHC=3600 


/CHANGE H0RI2 


6633 








/COORD 


6634 






CRS0043 


/EOL RH 


6635 






CR1»4300 


/EOL LH 


6636 






ENDWO»0077 


/END OF MESS 


6637 






ENOWD1«7700 


/END OF MESS 


6640 






FUL«0006 


/FULL SIE CHARS 



6641 


FUL1«0600 




6642 


GRDPTRS14 


/PTR TO GRID 


6643 




/TABLE 


6644 


GROTAB«QAV 


/ADDR OF GRID 


6645 




/TABLE 


6646 


HeiTc4000 




6647 


HCPTRal5 


/PTR TO TABLE 


6650 




/HORIZ COORDS 


6651 


KURLEN8-30 


/- LENGTH OF 


6652 




/CURSOR 


6653 


HSPTR»i7 


/»XCORD 


6654 




/PTR TO DIAL 


6655 




/ENCODED MESS 


6656 


VCPTRal6 


/PTR TO TABLE 


6657 




/VERT COORDS 


6660 


XCURHI»ARGH1 


/PAGE 0 


6661 


XCURLOsARGLO 


/PAGE 0 


6662 


XYHCS0 


/INIT HORIZ 


6663 




/COORD FOR 


6664 




/X-Y DISP 


6665 


/DEFINITIONS FOR QANDA 


SETUP ROUTINES 


6666 


ANAVAL»4000 


/ANALOG SELECT 


6667 


ANSPTR«14 




6670 


CURNNI sADMESS 


/PAGE 0 


6671 


CURNLOkKBDBUF 


/PAGE 0 


6672 


DVNMAX»»5 




6673 


ENCPTR'TTYFLG 


/PAGE 0 


6674 


EXTMTPai0 


/XOB CONSTANT 


6675 


QAEOL1»7400 




6676 


QAEOM1»3400 




6677 


/TISA 15 APR 70 





i 



0000 ERRORS 



AAAP0 0111 
AAAS0 1765 
AAASl 3754 
AAAS2 5701 
AAAS3 6725 
ADOR 0730 
AOMESS 00:^^0 
AOMS 1504 
ADPTR 0011 
ADRHIN 7000 
ADRTAB 6366 
AGOMS 3515 
AHLTMS 3514 
AllDUN 4270 
ALLHLT 6661 
ANALOG 0702 
ANARTN 0637 
ANAVAL 4000 
ANLOF 0347 
ANLIF 0346 
;NONO 1653 
. KiC 1741 
ANSPTK 0014 
ANSWER 4524 
ANS4 6005 
ARGHI 0047 
ARGLO 0046 
ASAM 1513 
ASAVE 0352 



ATEMP 1506 
AWRI 1762 
AlCONT 4076 
A2C0NT 4105 
A2L0P 4100 
A3C0NT 4113 
A3L0P 4106 
A4 4211 
A4C0NT 4216 
BCDLOP 2600 
BCOPTR 0056 
SGDVAL 6435 
8CO0 6471 
BCOl 6476 
8C02 6503 
8C03 6510 
BC04 6515 
BCNTR 0053 
BETAl 0003 
BETA2 0004 
BETA3 0005 
BLKCNT 6143 
8UFHI 2347 
BUFLO 2346 
BUFPTR 0054 
BUSYMS 1063 
BWDMOT 2224 
BYHLT 3123 
8YM8LK 1137 
BYWRAP 2316 
C 1342 
CATA 1517 
CATPTK 1576 
CDFHIN 0000 
CDFVAL 0731 
COF0 0031 
CHAR 1265 
CHGHC 3600 
CHGSAM 0720 
CHKADR 2233 
CHKLOP 3114 
CHKSNS 4021 
CHKSWI 3107 
CHKTTY 0245 
CHRLOP 1210 
CHRNXT 2075 
CHRPTR 1224 
CHRTAB 1223 
CLKCNT 3304 
CLKMOD 3305 
CLRLOP 3206 
CNTR 0052 
C0NMS2 4200 
CR 0043 
CRl 4300 
CTRLH 1274 
CURCOF 0060 
CURCNT 2351 
CUROIS 2700 
CURLEN 2751 
CURLOP 2722 
CURNHI 0020 
CURNLO 0021 



C U R K T N 


2275 


D 


0473 


DADD 


2330 


08L0EF 


2470 


DBLHI 


0045 


DBLLO 


0044 


obllop 


2461 


DC I A 


3030 


OCODEX 


3527 


r\ ^ <^ r\ \j 

DCODt y 


3534 


DEVNUM 


0036 


DIAL 


40i5 


0I6CHK 


4466 


DLOOP 


44 70 


DOHTP 


1067 


DORD C 


166 4 


DOWRC 


174 6 


ORPM A X 


0020 


DSCCHR 


2732 


OSCHLP 


2052 


DSCL 


3017 


DSCL4 


3043 


DSCX Y 


2122 


DUN 


7035 


DUN3LK 


1632 


D VNMAX 


7/73 


DVT YP 


0027 


0 VI 


0321 


r\ V/ o 

u V2 




DVo 


0423 


D V 4 


04 46 


EH ID V0 


0315 


EH I D VI 


0337 


EHI DV2 


04 i6 


EHIDV3 


0441 


EHI DV4 


0464 


ELODV0 


0314 


ELOD VI 


0336 


EL OD 


0 415 


ELOD V3 


0 44 0 


EL 00 V4 


0 4 63 


E NCPT R 


0022 


ENCV AL 


3306 


ENDHI 


0733 


ENDLO 


0732 


ENDQUE 


6416 


ENDWD 


0077 


ENDWDi 


7700 


ENQUE 


1065 


EOL XI T 


4517 


ERFREQ 


4327 


ERRDEV 


4335 


ERRENC 


4303 


ERRFUL 


4317 


ERRX I T 


4522 


ERR0PT 


4311 


EXIT 


0472 


EXTMTP 


0010 


F 


0514 


FIHLDF 


0643 


FIRST 


6001 


FOUND 


2432 


FREE 


4332 



FREE2E 2040 
FREQ 073t> 
FRMS 0542 
FROM 1510 
FRSTR 3200 
FUL 0006 
FULl 0600 
FWOCOF 2303 
FHDRTN 2300 
G 1315 
GBLK 3430 
GETKBD 5534 
GETU 1542 
GO 1411 
GODIS 2251 
GOLOP 1451 
GQMS 3507 
GOODY 1124 
GROPTR 0014 
GRDTAB 5331 
GSWIT 1365 
H 1311 
HALT 1400 
HALTAL 3516 
H8IT 4000 
HCPTH 0015 
HCTA8 3557 
HIDV0 0311 
HIOVl 0333 
HIDV2 0412 
HIDV3 0435 
HIDV4 0460 
HLPTAB 3615 
HLTALL 1363 
HLTDV0 0317 
HLTOVl 0341 
HLT0V2 0420 
HLTDV3 0443 
HLT0V4 0466 
HLTLOP 3475 
HLTHS 3461 
HLTPTR lbl6 
HOLD 0736 
HSWIT 1364 
HSWIT0 0073 
HSWITl 0074 
HSWIT2 0075 
HSWI T3 0076 
HSWIT4 0077 
HSWPTR 3130 
IDLE 2020 
INIAD 6145 
INICHH 2137 
INIEND 6036 
INILEN 3273 
INIPTR 0010 
INISAM 1464 
INISTR 6016 
INMESS 1044 
INPUT 0600 
INTL 0200 
INTMOD 0345 
INTOUT 0256 



I MTP 


0230 


I NVMS 


0b44 


KAOR 


3303 


K8C0 


2526 


KB08UF 


0021 


K80TAB 


122t> 


KBtKCT 


0107 


KCLEN 


0062 


KCONMS 


4162 


KCUR 


2352 


KO 


1271 


KOAOO 


0037 


KDCI A 


4171 


KDIG 


0063 


KOOMTP 


1763 


KDSCL4 


4166 


KDV2 


0353 


KENC 


3277 


KERENC 


4165 


KERFUL 


4172 


KER0PT 


4170 


KEY8RD 


1200 


KE YKTN 


0511 


KEYX IT 


1505 


KF 


1270 


KFIRST 


174(3 


KFREO 


0537 


KFREQ 


0734 


KFRESH 


1745 


KFRSTR 


4163 


KGSL K 


4 302 


KGO 


1370 


KgOHS 


0102 


KHALT 


1366 


KHLTMS 


0101 


KIDLE 


0065 


K INI 


0106 


K I NPUT 


0030 


KKOC I A 


3427 


KKEY 


2047 


KlAST 


0110 


KLIH 


2525 


KLOAD 


1525 


KLOHI 


4173 


KMES 


2050 


KMESS2 


4300 


KMULlti^ 


0064 


KNUM 


3526 


f f XSTR 


4277 


KP 


1267 


< *OLAR 


0540 


KPIDAC 


4174 


KQUPUT 


0105 


KR O 


2527 


KROERf 


1737 


KRESTR 


4164 


KS 


1272 


KSET 


?272 


KSETUP 


i545 


KSrOV0 


0310 


KSFOVl 


0352 


KSFDV2 


0411 


KSFOVL 


0434 



KSFDV4 04t?7 
KSTRQ Z667 
KSWI 20bl 
KTTY 3^6b 
KTXT26 3302 
KUPACK 4167 
KUPLIM 1661 
KURLEN 7750 
KW 1273 
KWRERR 1764 
KWRIT 0546 
KXYGET 2353 
K210 3366 
K6K 7056 
L 1354 
LAST 6144 
LDFSTR 1172 
LIMLOP 2407 
LIHPTR 0055 
LIMVL0 6443 
LIMVLl 6447 
LIMVL2 6453 
LIMVL3 6457 
LIMVL4 6463 
LIHVL5 6467 
LNNXT 2061 
LOAD 4454 
LOADER 1550 
LODLOP 1532 
LODPTR 1610 
LOOV0 0312 
LODVl 0334 
L0DV2 0413 
L00V3 0436 
L00V4 0461 
LOHI 3406 
LOOP 7010 
LOPl 3326 
L0P2 3330 
LSAVE 0351 
LSENC 3300 
LSINI 3276 
LSSAHI 3275 
LSSALO 3274 
M 1347 
MAG 1522 
MAGPTH 1603 
MATCH 1220 
MAXCDF 0032 
MAXCUR 2752 
MAXORP 0724 
MAXDVN 0061 
MEMCHK 7001 
MESCHK 1000 
MESSl 4026 
MESS2 4043 
MESS3 4237 
MINADR 0034 
MINCDF 0033 
MM12 1657 
MM4 2756 
MODE 0103 
MOTMS 0541 



HSAD 6712 
MS8USV 6676 
MSFR 6624 
MS GO 6i>5 0 
MSHlT 6527 
HSINV 6646 
MSMOT 6613 
HSHOR 6635 
MSPTR 0017 
MS0 6bb7 
HSl 6573 
MS2 6577 
MS3 6603 
MS4 6607 
MTPLOP 1100 
MUL10 3000 
M10 1660 
H1000 2350 
H12 2753 
M5 1514 
NEG12 4301 
NEG5 2530 
NEWSAM 0725 
NFDVK 0673 
NLOF 7013 
NOKMS 0543 
NOT0 4122 
NUM 1321 
NUMPUT 3517 
NUM0 6522 
NUHl 6523 
NUH2 6524 
NUH3 6525 
NUM4 6526 
NXSTR 3255 
NXTCHR 2152 
NXTLN 2131 
NXTPNT 2261 
OKI 4266 
0K2 4207 
OLDSAM 0727 
OPKRTN 1203 
O^DVg 0313 
OSDVl 0335 
0S0y2 0414 
0SDV3 0437 
0SDV4 0462 
OUTL 0266 
P 0500 
PCKLOP 3061 
PL1000 1515 
PL400 3460 
PL60 4513 
POLAR 2266 
PP17 1367 
PP400 2755 
PIOAC 3400 
P1000 0726 
P17 3106 
P1777 0355 
P2 2743 
P37 0350 
P4 7000 



P401 


2166 


P4040 


7055 


P4060 


3301 


P57 


2757 


P60 


27^4 


P6000 


0354 


P7K 


1113 


QAB 


5017 


QACA 


5030 


QACHAR 


5670 


QACKLF 


5634 


QACNTR 


5617 


QAO 


5041 


QAOUN 


3312 


QAE 


5063 


QAE0L3. 


7400 


QAEOMl 


3400 


QAEXIT 


5650 


QAF 


5531 


QAFLO 


4000 


QAG 


5075 


QAH 


5127 


QAI 


5144 


QAINIT 


5013 


QAJ 


5151 


QAK 


5320 


QAKRB 


6036 


QAL 


5210 


QALEGL 


5610 


QAM 


5114 


QAN 


5236 


QAO 


5244 


QAP 


5255 


QAQ 


5276 


QARFSH 


5066 


QAT 


5303 


QATLS 


6046 


QATPE 


5657 


QATSF 


6041 


QATY 


5551 


QAU 


5521 


QAV 


5331 


QAW 


5525 


QAX 


5437 


QAY 


5425 


Qk£ 


5314 


QSAVE 


1066 


QUECNT 


0025 


QUEIN 


0023 


QUEMAX 


1062 


QUEOUT 


0024 


QUPUT 


1033 


RADPTR 


0057 


RAOVAL 


6417 


RDCWD 


1677 


ROLEN 


1742 


ROMBLK 


6000 


READ 


4344 


REMS2 


4046 


RESTR 


3233 


RMBLK 


1744 


RTNJMP 


0274 


RTNLOF 


0271 



RTNL IF 


0270 


S 


0526 


SAMX 


0703 


SAMY 




Qrpf I n 


2000 


SCPRTN 


2043 


SCPX IT 


2163 


SELDV0 


0066 


SELOVl 


0067 


SELDV2 


0070 


SEL0V4 


0071 


SELDV4 


0072 


SELPTR 


0100 


SERVE 


0234 


SETANA 


4073 


SETCDF 


2320 


SETFUL 


2114 


SETHC 


2 1 1 1 


SETMOT 


2200 


SETUP 


4023 


SFDV0 


0307 


SFDVl 


0331 


SFDV2 


0410 


SFDV3 


0433 


SFDV4 


045*6 


START 


4020 


STATUS 


0026 


STQUE 


1064 


STRQUE 


6373 


STRRDE 


3315 


TBLK 


1662 


TBUSY 


1057 


TEMP 


0104 


TEMPHI 


0051 


TEMPLO 


00!^0 


TIADR 


1512 


TI AD0 


6323 


TI ADl 


6331 


TI AD2 


63v37 


TI AD3 


6345 


TI AD4 


63b3 


TIRTN 


0240 


TISA 


0275 


TISTR0 


6272 


TISTRl 


6277 


TISTR2 


6304 


TiSTRvj 


6311 


TISTR4 


6316 


TI VAL 


130 7 


TO 


1511 


TPARGS 


1615 


TPINST 


1102 


TPLOF 


1101 


TPLOP 


1622 


TPRDC 


1676 


TPWAIT 


1163 


TPWORQ 


1103 


TTYFLG 


0022 


TXTl 


4535 


TXT10 


4757 


TXTll 


4765 


TXT12 


4774 


TXT13 


5001 



TXT14 5006 
TXT2 4t^6f5 
TXTv5 46b0 
TXT4 4672 
TXTt? 4705 
TXT6 4720 
TX T 7 4747 
UNIT 1663 
UPACK 30^5 
UPLIM 4S06 
VALTAB 6361 
VCOORD 2737 
VCPTR 0016 
VCTAB 3540 
W 0533 
WMBLK 1743 
WRIT 4400 
WRMBLK 4000 
XAXOV0 0010 
XAXOVl 0011 
XAXDV2 0012 
XAXDV3 0013 
XAXDV4 00^0 
XCORD 2017 
XCURHI 0047 
XCURLO 0046 
XYGET 2400 
XYHC 0000 
YAXOV0 001 4 
YAXDVl 0015 
YAX0V2 0016 
rAXDV3 0017 
YAXDV4 0024 
YCUR 0035 
YLOP 2 64 7 
J^XIT 0512 



READER^S COMMENTS 



TISA 

DEC-.12«UW3A-D 



Digital Equipment Corporation maintains a- continuous effort to improve the quality and usefulness of its 
publications. To do this effectively we need user feedback - your critical evaluation of this manual. 

Please comment on this manual's completeness, accuracy, organization, usability, and readability. 



Did you find errors in this manual? 



How can this manual be improved? 



DEC also strives to keep its customers informed of current DEC software and publications. Thus, the following period- 
ically distributed publications are available upon request. Please check the appropriate boxes for a current issue of the 
publication(s) desired. 

□ Software Manual Update, a quarterly collection of revisions to current software manuals. 
^ ^^ser's Bookshelf, a bibHography of current software manuals. 

□ Program Library Price List, a list of currently available software programs and manuals. 



Please describe your position. 



Name 
Street 
City_ 



State 



Organization 
Department 



Zip or Country 
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HOW TO OBT AIN SOFTWARE INFORMATION 



Annuur^. v it^ nts lor new and revised software a.\ well as programming notes, software probicms. and documenta- 
rjon vorredjons art published by Software Intormation Ser\'icc m the following newsletters. 



Digital Software News tor the PDP-8 Family 
Digital Software News tor the PDP-9/] 5 Family 
PDP-6/PDP 10 Software Bulletin 



These newsletters contain information applicable to software available from Digital's Program Library 



Please complete the card below to place your name on the newsletter mailing list. 



Ouesrions or problems concerning DEC Software should be reported to the Software Specialist at your nearest DEC 
regional ot district sales office, In cases where no Software Specialist is available, please send a Software Trouble 
Rep{)rt torm with details of the problem to 

Software Information Service 
Digital Equipment Corporation 
146 Mam Street. Bldg. 3-5 
Maynard. Massachusetts 01754 

These forms which are available without charge from the Program Library, should be fully filled out and accompa- 
nied ^\ reletvpe output as well as listings or tapes of the user program to facilitate a complete investigation. An 
dmvwc-T will he sent to the individual and appropriate topics of general interest will be printed in the newsletter. 

New and revised software and manuals, Software Trouble Report forms, and cumulative Software Manual Updates 
dre available from the Program Library. When ordenng mclude the document number and a brief description of 
the program or manual requested. Revisions of programs and documents will be announced in the newsletters and 
d price hst will be included twice yearly. Direct all inquiries and requests to: 

Program Library 
Digital Equipment Corporation 
146 Main Street. Bldg. 3-5 
Maynard, Massachusetts 01754 

Digital Equipment Computer Users Society (DECUS) maintains a user Library and publishes a catalog of programs 
as wen as the DECUSCOPE magazine for its members and non-members who request it. For further information 
please write to 

DECUS 

Digital Equipment Corporation 

146 Main Street 

Maynard, Massachusetts 01754 



Send Digital's software newsletters to: 

Name 

Company Name 
Address 



My computer is a PDP-8/I □ 

LINC-8 □ 
PDP-9 □ 
PDP-10 □ 

My system serial number is 



(zip code) 

PDP-8/L □ 
POP- 1 2 □ 

(if known) 
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